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Welcome 

One of the most exciting features of your Series 200/300 computer is its graphics 
capability. Graphic messages are often a better way of communicating information using 
primarily non-textual information. 

Prerequisites 

This manual introduces you to the powerful set of graphics statements in the BASIC 
Programming Language, as well as teaches you how to orchestrate them to produce 
pleasing output. This manual assumes you have read chapters 1 through 5 of the BASIC 
Programming Techniques manual, and that you will refer to that manual when you 
encounter any programming topics you do not understand. 

If you have a question as to what binary to load for a particular keyword or option, see 
the BASIC Language Reference. Note that you must load the BIN files named GRAPH 
and GRAPHX before you can enter most graphics statements. You may need to load 
other BIN files, depending on what computer you have. Refer to the Installing and 
Maintaining the BASIC System for information about the BIN files. Finally, certain 
programs in this manual require BIN files such as MAT that you might not readily 
associate with graphics. 

You may have a disc called Manual Examples Disc. The part numbers vary, depending 
on what disc drive you have, but the disc contents are identical. The Manual Examples 
Disc disc contains programs which may be helpful, but they are not overemphasized in 
this manual. 
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Why Graphics? 

Below is some data. As quickly as you can, determine if its overall trend is steady, rising 
or falling. Are there any periodic motions to it? If so. how many cycles are represented 
in the one hundred points? 

Table 1-1. Lexically Represented Set of Voltage Data 



Time (sec.) 


Voltage 


Time (sec.) 


Voltage 


1 


16.10 


51 


16.69 


2 


16.25 


52 


16.55 


3 


16.25 


53 


16.65 


4 


16.28 


54 


16.62 


5 


16.36 


55 


16.67 


6 


16.31 


56 


16.68 


7 


16.27 


57 


16.81 


8 


16.08 


58 


16.88 


9 


16.10 


59 


16.87 


10 


16.06 


60 


17.07 


11 


16.07 


61 


17.16 


12 


16.17 


62 


17.16 


13 


16.14 


63 


16.94 


14 


16.26 


64 


16.98 


15 


16.34 


65 


16.83 


16 


16.40 


66 


16.83 


17 


16.56 


67 


16.71 


18 


16.60 


68 


16.81 


19 


16.44 


69 


16.83 


20 


16.51 


70 


16.84 
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Table 1-1. Lexically Represented Set of Voltage Data (continued) 
Time (sec.) Voltage Time (sec.) Voltage 



21 


16.35 


22 


16.41 


23 


16.28 


24 


16.19 


25 


16.30 


26 


16.24 


27 


16.27 


28 


16.44 


29 


16.44 


30 


16.57 


31 


16.60 


32 


16.70 


33 


16.72 


34 


16.66 


35 


16.58 


36 


16.62 


37 


16.46 


38 


16.33 


39 


16.34 


40 


16.36 


41 


16.45 


42 


16.52 


43 


16.56 


44 


16.77 


45 


16.89 


46 


16.80 


47 


16.96 


48 


16.80 


49 


16.74 


50 


16.77 



71 


16.81 


72 


16.98 


73 


17.05 


74 


17.23 


75 


17.30 


76 


17.34 


77 


17.14 


78 


17.22 


79 


17.16 


80 


16.96 


81 


17.02 


82 


16.99 


83 


16.84 


84 


17.06 


85 


16.96 


86 


17.15 


87 


17.30 


88 


17.37 


89 


17.39 


90 


17.51 


91 


17.32 


92 


17.47 


93 


17.29 


94 


17.17 


95 


17.10 


96 


17.07 


97 


17.06 


98 


17.09 


99 


17.13 


100 


17.20 
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Below is a graph of the data in the preceding table. Observe that the graphical 
nature of the output makes it much clearer what the data is doing. This clarity and 
understandability at a glance is what computer graphics is all about. Many example 
programs are included in the pages that follow. Type in and run them as you progress 
from simply drawing a jagged line to creating complex graphics. 



VOLTHGE VHRIHNCE 







90 iaa 



Figure 1-1. Graphic Representation of Data Is Often More Useful 
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Drawing Lines 

To draw lines, you can simply say PLOT, followed by the X and Y coordinates of the 
point you want to draw a line to. The following program does just that. 

Initialize various graphics parameters . 

Use the CRT screen 

Turn on the graphics screen 

Points to be plotted. . . 

Get a data point and plot it against X 

RND returns a value between and 1 



10 


GINIT 


20 


PLOTTER IS CRT." INTERNAL" 


30 


GRAPHICS ON 


40 


FOR X=2 TO 100 STEP 2 


50 


PLOT X.RND+50 


60 


NEXT X 


70 


END 




Figure 1-2. Example of Plotting Random Data 

As you can see, this simple seven-line program is all you need to draw a simple plot. 
Granted, it would be nice to know what we are plotting, and what the units are, etc., 
but we'll get there in due time. 

The GINIT statement on line 10 means Graphics Initialize. This is almost always the 
first graphics statement you would execute. As its name implies, it sets various graphics 
parameters to their default values, and it is a shorthand way of executing up to fourteen 
other statements (see the BASIC Language Reference manual for details). 
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The GRAPHICS ON statement on line 30 allows you to see what the program is drawing 
if you have separate alpha and graphics. On bit-mapped displays, graphics and alpha 
are always on, unless you have modified the display mask. More on this later. 

Line 50 contains the heart of the program. In a loop, the PLOT statement draws to each 
successive point, which is determined by the loop control variable X for the X direction 
and the value returned by the function RND+50 for the Y direction. The constant, 50, is 
used to center the line on the screen so it is not displayed in your softkey display area. 

Scaling 

Probably the first reaction you had when looking at the previous plot was "That doesn't 
show me anything...." That's true; it doesn't show much information. There is not 
enough variation in the curve; it's too straight to show us anything. If we exaggerated 
the Y direction to the point where we could see the variations, the line would better 
represent the plotted data. 

This problem can be remedied by scaling. In this context, scaling is "defining the values 
the computer considers to be at the edges of the plotting surface." By definition, the left 
edge is the minimum X, the right edge is the maximum X, the bottom is the minimum Y, 
and the top is the maximum Y. Thus any point you plot which has X and Y coordinates 
within these ranges will be visible. 

Two statements are available to define your own values for the edges of the plotting 
surface. The first one we'll deal with is SHOW, which forces X and Y units to be equal. 
This is called isotropic scaling, and it is often desirable. For example, when drawing a 
map, you will probably want one mile in the east-west direction to be the same size as a 
mile in the north-south direction. Here is an example of SHOW: 

SHOW 0.100,16,18 
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This causes the plotting area to be denned such that there is a rectangle in that plotting 
area whose minimum X is 0, maximum X is 100, minimum Y is 16, and maximum Y is 
18, using isotropic units. As mentioned above, isotropic means that one unit in the X 
direction is equal to one unit in the Y direction. Hence, if the plotting area were square, 
the above SHOW statement would define the minimum X to be 0, maximum X to be 
100, minimum Y to be -33 (not 16) and maximum Y to be 67 (not 18). The reason for 
this is that since we have to have X and Y units identical, the SHOW statement centers 
the specified area in the plotting area, allowing whatever extra room it needs to ensure 
that the rectangle is completely contained in the plotting area. There will be extra room 
in either the X or Y direction, but not both. 

Since you were defining unit sizes with the SHOW statement, you were working with 
User-Defined Units (UDUs). Both the SHOW statement and the WINDOW statement 
(covered next) specify user-defined units. 

The next example uses a SHOW statement to define the edges of the screen to appropriate 
values. The X values used in the SHOW statement (0 and 100) come from the facts that 
there are 100 data points and that axes are more meaningful when the origin is at zero 
and not one. The Y values (for this type of plot) must be determined either by you or 
by the computer itself. We are using a random number function to simulate data being 
received from some device. 
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If you want the computer to determine the X maximum, you could do it this way: 

210 Xmax=-1.0E308 ! Smaller than smallest value in array 

210 FOR 1=1 TO N ! N is the number of elements in array 

220 IF X(I)>Xmax THEN Xmax=X(I) 

230 NEXT I 

A similar set of program lines could be used to determine the minimum value of X. 

The MAX and MIN functions provide an alternate method for determining the maximum 
and minimum values of a set of numbers. However, these functions require the use of the 
MAT binary. Below is an example of how these functions are used. 

110 Ymin=INT(MIN(Y(*))) 

120 Ymax=MAX(Y(*)) 

130 Ymax=INT(Ymax)+(Ymax<>INT(Ymax)) 

Line 110 calculates the "floor" of the minimum value in an array of Y values. The floor 
of a number is the greatest integer less than or equal to that number, i.e., rounding down 
to the nearest integer. Lines 120 and 130 calculate the "ceiling" of the maximum value 
in the array of Y values. The ceiling of a number is the smallest integer greater than or 
equal to that number, i.e, rounded up to the nearest integer. 

Back to our example, the Y values being used (16 and 18) come from the RND function. 
In real applications, you probably will not know beforehand what the range of the data 
will be, in which case you can use the method described above. 
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10 


GINIT 


20 


PLOTTER IS CRT, "INTERNAL" 


30 


GRAPHICS ON 


40 


SHOW 0,100,15,19 


50 


FOR X=2 TO 100 STEP 2 


60 


PLOT X.RND+17 


70 


NEXT X 


80 


END 



Initialize various graphics parameters. 

Use the internal screen 

Turn on the graphics screen 

Isotropic scaling: left, right, bottom, top 

Points to be plotted. . . 

Get a data point and plot it against X 

RND returns a value between and 1 




Figure 1-3. Better Use of X- Axis Scaling 

As you can see, the SHOW statement takes care of centering the curve on the screen, 
but since the range of X values is so much larger than the range of Y values (0 to 100 
versus 16 to 18), it still does not give us enough resolution to see what the data is doing. 
Isotropic scaling is desirable in many cases. In many other cases, however, it is not. In 
this example, we are hypothetically graphing the voltage from a sensor versus time, and 
it makes no sense at all to force seconds to be just as "long" as volts. Since we are dealing 
with data types which are not equal, it would be better to use unequal, or anisotropic, 
scaling. We can use the other scaling statement: WINDOW. This will not force X units 
to be equal to Y units. Instead, the scaling is determined by the axis range. 
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10 


GINIT 


20 


PLOTTER IS CRT. "INTERNAL" 


30 


GRAPHICS ON 


40 


WINDOW 0,100.15.19 


50 


FOR X=2 TO 100 STEP 2 


60 


PLOT X.RND+17 


70 


NEXT X 


80 


END 



Initialize various graphics parameters. 

Use the internal screen 

Turn on the graphics screen 

Anisotropic scaling: left, right, bottom, top 

Points to be plotted . . . 

Get a data point and plot it against X 

RND returns a value between and 1 




Figure 1-4. Better Use of Y-Axis Scaling 

This plot looks much better than the last one; we can easily see variations in the data. 
To test how the Y axis range, 15-19, affects relative variations in the data, change WINDOW 
, 100 , 15 , 19 to WINDOW , 100 , 30 , 50 and change RND+17 to RND+40. Run the program again 
and note that the line is less ragged (remember that RND ranges between and 1). 
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There is still one problem, though. We can see relative variations in the data, but what 
are the units being used? That is, is the height of the curve signifying differences of 
microvolts, millivolts, megavolts, dozens of volts, or what? And we probably wouldn't 
want the text (explaining units, etc.) to be written in the same area that the curve is in, 
as it could obstruct part of the data curve. Therefore, we need to be able to specify a 
subset of the screen for plotting the curve; put explanatory notes outside this area. The 
next section tells you how to do this. 

Defining a Viewport 

A viewport is a subset of the plotting area. This is called the soft clip area, and it is 
delimited by the soft clip limits. Clip, because any line segments which attempt to go 
outside these limits are cut off at the edge of the subarea. Soft, because we can override 
these limits by turning off the clipping with the CLIP OFF statement (more about this 
later). There are hard clip limits also, and these are defined to be the absolute limits of 
the plotting area. Under no circumstances can a line be drawn outside of these limits. 
There is no way to override the hard clip limits, as we can with soft clip limits. 

GDUs and UDUs 

Before we define a viewport, we need to know about the two different types of units which 
exist. These two types of units are UDUs (User- Defined Units) and GDUs (Graphics 
Display Units). In order for viewports to be predictable, they must always be specified 
in the same units. Since UDUs are subject to change by the user, GDUs are used when 
specifying the limits of a VIEWPORT statement. GDUs are fixed for the CRT, so a 
viewport is associated with the screen, rather than the graphical model used in your 
program. 

Unless you specify otherwise, the screen (but not necessarily an external plotter) is 
considered to have the following expanse: 

• In the Y direction (the shorter side), units are through 100. 

• In the X direction, the range of scaling units depends on the aspect ratio of the 
screen (the aspect ratio is determined by executing the RATIO command); here 
are some examples: 

• through 133.444816054 (on the Models 216 and 226) 

• through 131.362467866 (for the Models 236 and 236C) 

• through 128.0701754 (for the 98542A and 98543A) 

• through 133.3767927 (for the 98544, 98545, 98546, 98547, and 98700) 
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These are GDUs. The length of a GDU is defined as "One percent of the shorter edge of 
the plotting area." There are some important characteristics of GDUs which you should 
know: 

• The lower left of the plotting area is always 0,0. 

• GDUs are isotropic; that is, one unit in the X direction is the same distance as one 
unit in the Y direction. 

Since the height of the screen is shorter than the width of the screen, the shorter edge is 
in the Y direction, therefore, Ymax in GDUs is 100. If the screen had been higher than 
it is wide, Xmax in GDUs would have been 100. That was the easy part. Once you've 
decided which edge is shorter, and thus defined the units along that edge, you need to 
find out how many GDUs in extent the longer sides are. This will be covered in detail 
in the "Using Graphics Effectively" chapter. For now, we'll just observe that the GDU 
limits are as mentioned above. 



Specifying the Viewport 

The VIEWPORT statement defines the extent of the soft clip limits in GDUs. It specifies 
a subarea of the plotting surface which acts just like the entire plotting surface except you 
can draw outside the subarea if you turn off clipping (more about clipping later) . The 
VIEWPORT statement in the following program specifies that the lower left-hand corner 
of the soft clip area is at 10,15 and the upper right-hand corner is at 120,90. This is the 
area which the WINDOW statement affects. Also note line 50; the FRAME statement. 
This draws a box around the current soft clip limits. It is used in this example so you 
can see the area specified by the VIEWPORT statement. 

Initialize various graphics parameters. 

Use the internal screen 

Turn on the graphics screen 

Define subset of screen area 

Draw a box around defined subset 

Anisotropic scaling: left .right .bottom, top 

Points to be plotted. . . 

Get a data point and plot it against X 

RND returns a value between and 1 



10 


GINIT 


20 


PLOTTER IS CRT. "INTERNAL" 


30 


GRAPHICS ON 


40 


VIEWPORT 10.120.15.90 


50 


FRAME 


60 


WINDOW 0.100.15.19 


70 


FOR X=2 TO 100 STEP 2 


80 


PLOT X.RND+17 


90 


NEXT X 


100 


END 
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Figure 1-5. Using VIEWPORT to Define Soft-Clip Limits 

Labeling a Plot 

With the inclusion of the VIEWPORT statement, we have enough room to include 
labels on the plot. Typically, in a Y-vs.-X plot like this, there is a title for the whole plot 
centered at the top, a Y-axis title on the left edge, and an X-axis title at the bottom. 

There is a statement called LABEL which writes text onto the graphics screen. You can 
position the label by using a MOVE or PLOT statement to get to the point at which you 
want the label to be placed. The lower left corner of the label is at the point to which 
you moved. In other words, move to the position on the screen at which the lower left 
corner of the text is placed. Note that the LORG statement will move you to the lower 
left corner of the label. (The relative origin for labels can be changed with the LORG 
statement.) 

Notice in the following plot that the Y-axis label on the left edge of the screen is created 
by writing one letter at a time. We only need to move to the position of the first 
character in that label because each label statement automatically terminates with a 
carriage return/linefeed. This causes the pen to go one line down, ready for the next line 
of text. (There is a better way to plot vertical labels; we'll see it in the next chapter.) 
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10 


GINIT 


20 


PLOTTER IS CRT. "INTERNAL" 


30 


GRAPHICS ON 


40 


MOVE 45,95 


50 


LABEL "VOLTAGE VARIANCE" 


60 


MOVE 0,65 


70 


Label$="Voltage" 


80 


FOR 1=1 TO 7 


90 


LABEL Label! [I, I] 


100 


NEXT I 


110 


MOVE 45,10 


120 


LABEL "Time (seconds)" 


130 


VIEWPORT 10.120,15.90 


140 


FRAME 


150 


WINDOW 0.100,16.18 


160 


FOR X=2 TO 100 STEP 2 


170 


PLOT X.RND+16.5 


180 


NEXT X 


190 


END 



Initialize various graphics parameters . 

Use the internal screen 

Turn on the graphics screen 

Move to left of middle of top of screen 

Write title of plot 

Move to center of left edge of screen 

Write Y-axis label 

Seven letters in "Voltage" 

Label one character 

et cetera 

X: center of screen; Y: above key labels 

Write X-axis label 

Define subset of screen area 

Draw a box around defined subset 

Anisotropic scaling: left/right/bottom/top 

Points to be plotted. . . 

Get a data point and plot it against X 

et cetera 

finis 



VOLTRGE VRRIRNCE 




T i me ( seconds ) 



Figure 1-6. Labeled Plot 
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Now we know what we are measuring — voltage vs. time — but we still do not know the 
units being used. What we need is an X-axis and a Y-axis, and they need to be labelled 
with numbers in appropriate places. The AXES statement fits the bill here. 

Axes and Tick Marks 

The AXES statement draws X and Y axes and short lines, perpendicular to the axes, 
to indicate the spacing of units. These short lines are called tick marks. The axes maj 



intersect at any desired point; it need not be the actual origin — the point 0,0. The tick 
marks may be any distance apart, and you can select the "major tick count" for each 
axis. The major tick count is the total number of tick marks drawn for every large one. 
This makes it convenient to count by fives or tens or whatever you chose the major tick 
count to be. And finally, you can specify how long you want the major tick marks to be. 
This is measured in GDUs. Insert the AXES statement in your program and rerun it to 
see the difference. 

Initialize various graphics parameters. 

Use the internal screen 

Turn on the graphics screen 

Move to left of middle of top of screen 

Write title of plot 

Move to center of left edge of screen 

Write Y-axis label 

Seven letters in "Voltage" 

Label one character 

et cetera 

X: center of screen; Y: above key labels 

Write X-axis label 

Define subset of screen area 

Draw a box around defined subset 

Anisotropic scaling: left/right/bottom/top 

Draw X- and Y-axes with appropriate ticks 

Points to be plotted. . . 

Get a data point and plot it against X 

et cetera 

finis 



10 


GINIT 


20 


PLOTTER IS CRT, "INTERNAL" 


30 


GRAPHICS ON 


40 


MOVE 45,95 


50 


LABEL "VOLTAGE VARIANCE" 


60 


MOVE 0,65 


70 


Label$="Voltage" 


80 


FOR 1=1 TO 7 


90 


LABEL Label$ [I, I] 


100 


NEXT I 


110 


MOVE 45,10 


120 


LABEL "Time (seconds)" 


130 


VIEWPORT 10,120,15,90 


140 


FRAME 


150 


WINDOW 0,100,16,18 


160 


AXES 1, .1,0,16,5.5,3 


170 


FOR X=2 TO 100 STEP 2 


180 


PLOT X.RND+16.5 


190 


NEXT X 


200 


END 
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Figure 1-7. Plot with Axes and Tick Marks 

Line 160 of the program contains the AXES statement and its parameters. The 
parameters are explained as follows: 



l. -1 



0,16 



5.5 



,3 



are the respective values for the X and Y axes tick-mark spacings. The 
X axis has 1 display unit between tick marks, and the Y axis has .1 
display unit between tick marks, in current display units. 

are the respective values used to determine the origin of the Y and X 
axes. The Y axis crosses the X axis at X equals 0. The X axis crosses 
the Y axis at Y equals 16. 

specify the x-major and y-major counts, respectively. These counts are 
the number of "minor" (shorter) ticks between "major" (longer) tick 
marks on the axes. The value of 5 specifies that there will be a major 
tick mark every 5th tick mark. 

specifies the major tick size, in graphics display units. The value of 3 
specifies that the major ticks are 3 GDU's long (the default is 2). 
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This chapter has shown you how easy it is to write a program whose output is in graphical 
form. Now you have the basic knowledge needed to get into graphics in a serious way. 
The next chapter discusses these statements in greater depth, so you can to make even 
more effective graphical output. 
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In the last chapter we discussed the more elementary graphics operations. In this chapter, 
we will discuss how to use those statements more fluently, and introduce additional 
graphics statements. 

The Manual Examples disc, which was shipped with this manual, contains programs 
found in this chapter. If you have the disc, load the appropriate program and run it. 
Otherwise, it is beneficial to take time to type in the listed programs and run them. 
Either way, experiment with them until you are familiar with the demonstrated concepts 
and techniques. 



Note 

Some programs in this chapter require the MAT (matrix) BIN file. 
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More on Defining a Viewport 

Recall that the VIEWPORT statement defines a subset of the screen in which to plot. 
More precisely, the VIEWPORT statement defines a rectangular area into which the 
WINDOW coordinates will be mapped. (If you didn't catch that, don't panic. It 
will become clearer.) VIEWPORT immediately rescales the plotting area; thus, it is 
a good programming practice to follow every VIEWPORT statement with a WINDOW 
statement. The VIEWPORT also invokes clipping at its edges. There will be more about 
clipping later in this chapter. 

The Y direction edge values default to through 100 in Y. The X direction left edge value 
is 0. The right edge value can vary depending on what computer you have (approximately 
128-133). Technically, these are UDSs (User-Defined Units), although default UDUs are 
equivalent to the GDUs until you change the UDUs with a SHOW or a WINDOW. The 
length of a GDU is defined as "One percent of the shorter edge of the plotting area." To 
recap the important characteristics of GDUs: 

• The lower left of the plotting area is 0,0. 

• GDUs are isotropic; that is, one unit in the X direction is the same distance as one 
unit in the Y direction. 

As we mentioned in the last chapter, it is trivial to determine how long the shorter edge 
of screen is in GDUs, bub substantially more involved to calculate the length of the longer 
edge in GDUs. Since the height of the screen is shorter than the width of the screen, the 
shorter edge is in the Y direction; therefore, Ymax in GDUs is 100. If the screen had 
been higher than it is wide, Xmax in GDUs would have been 100. Now for the interesting 
part. 

Remember that GDUs are isotropic: X and Y units are the same length. This means 
that the length in GDUs of the longer edges of the plotting surface is closely related to 
the aspect ratio of the plotting surface. The aspect ratio is the ratio of width to height 
of the plotting surface. There is a function called RATIO which returns the quotient of 
these values. Thus, if the plotting area is wider than it is high, RATIO returns a value 
greater than one. If the plotting area is higher than it is wide, RATIO returns a value 
less than one, and if the plotting area were perfectly square, RATIO would return 1. To 
try this, type 



RATIO | Return | or | ENTER | 

The returned value is something like 1.33376792699. This lets you know how the X- 
direction maximum range compares with the Y-direction maximum range. 
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Using this function, we can derive two formulas which are almost indispensible when 
writing a general-purpose VIEWPORT statement: 

X_gdu_max=100*MAX(l .RATIO) 
Y_gdu_max=100*MAX(l . 1/RATIO) 

These two statements define the maximum X and maximum Y in GDUs. This will work 
no matter what plotting device you are using. Now that we have X_gdu_max and Y_gdu_svax 
defined, we have complete control of the subset we want on the plotting surface. Suppose 
we want: 

• the left edge of the viewport to be 10% of the hard clip limit width from the left 
edge, 

• the right edge of the viewport to be 1% of the hard clip limit width from the right 
edge, 

• the bottom edge of the viewport to be 15% of the hard clip limit height from the 
bottom, and 

• the top edge of the viewport to be 10% of the hard clip limit height from the top. 
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We would specify: 

VIEWPORT . l*X_gdu_max , . 99*X_gdu_max , . 15*Y_gdu_max , . 9*Y_gdu_max 



Now, armed with this new knowledge, let's return to the program which defined the 
viewport, and update the VIEWPORT statement accordingly. You may load this 
program from file "SinViewprt" on the Manual Examples Disc. 



100 CLEAR SCREEN 

110 GINIT 

120 PLOTTER IS CRT. "INTERNAL" 

130 GRAPHICS ON 

140 X_gdu_max=100*MAX(l, RATIO) 

150 Y_gdu_max=100*MAX(l,l/RATIO) 

160 VIEWPORT . l*X_gdu_max. .99*X_ 

! Define subset of screen area 

170 FRAME 

180 WINDOW 0,100,16.18 

190 FOR X=2 TO 100 STEP 2 

200 PLOT X.RND+16.5 

210 NEXT X 

220 END 



Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Turn on the graphics screen 
How many GDUs wide the screen is 
How many GDUs high the screen is 
gdu_max, . 15*Y_gdu_max, .9*Y_gdu_max 



Draw a box around defined subset 
Anisotropic scaling: left/right/bottom/top 
Points to be plotted. . . 
Get a data point and plot it against X 
RND returns a value between and 1 
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Figure 2-1. General-Purpose VIEWPORT (SinViewprt) 
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More on Labelling a Plot 

There are three statements which complement the LABEL statement. 

The first is CSIZE, which means character size. CSIZE has two parameters: character 
cell height (in GDUs) and aspect ratio. The height measures the character cell size. 
A character cell contains a character and some blank space above, below, left of, and 
right of the character. This blank space allows packing character cells together without 
making the characters illegible. The amount of blank space depends, of course, on which 
character is contained in the cell. Focus on CSIZE in the program. Other statements 
are described later. 



This small program shows how the CSIZE statement changes the size of characters. You 
may load this program from file "Csize" on the Manual Examples Disc. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 



CLEAR SCREEN 

DIM Text$ [50] 

GINIT 

PLOTTER IS CRT. "INTERNAL" 

GRAPHICS ON 

FRAME 

WINDOW -1,1,10,1 

LORG 4 

FOR 1=1 TO 6 

READ Csize, Text$ 

CSIZE Csize 

MOVE 0,SQR(I)*3+1 

LABEL Text$ 
NEXT I 



Clear the alpha display 

Allow the long strings 

Initialize various graphics parameters 

Use the internal screen 

Turn on the graphics screen 

Draw a box around the screen 

Anisotropic units 

Bottom center of labels is ref . pt . 

Six labels total 

Read the characters cell size and text 

Use Csize 

Move to appropriate place 

Write the text 

Looplooplooplooplooploop 



DATA 30 , T , 20 , his , 10 , is j ustlike , 7 , thosecut elittlecharts 

DATA 5 , thatyoualwaysseeinyourf riendly 

DATA 3 , neighborhoodoptometristsoroptician8of f ice . 

END 
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Figure 2-2. Changing Graphics Character Size 

The FOR.. NEXT loop writes lines of text on the screen with different character sizes. 
The DATA statements contain both pieces of information. Incidentally, notice also the 
WINDOW statement. It specifies a Ymin larger than the Ymax. This causes the top of 
the screen to have a lesser Y- value than the bottom. This is perfectly legal. 
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The next program deals with the relationship between the size of the character, per se, 
and the size of the character cell — that rectangle in which the character is placed. This 
program is on file "CharCell" on the Manual Examples Disc. 

Clear the alpha display 

Initialize various graphics parameters 

Use the internal screen 

Turn on the graphics screen 

Draw a box around the screen 

Isotropic units; Left/Right/Bottom/Top 



100 


CLEAR SCREEN 


110 


GIN IT 


120 


PLOTTER IS CRT, "INTERNAL" 


130 


GRAPHICS ON 


140 


FRAME 


150 


SHOW 0,36,-7.5,22.5 


160 


FOR X=0 TO 36 


170 


FOR Y=0 TO 15 


180 


MOVE X-.l.Y+.l 


190 


DRAW X+.l.Y-.l 


200 


MOVE X+.l.Y+.l 


210 


DRAW X-.l.Y-.l 


220 


NEXT Y 


230 


NEXT X 


240 


FOR 1=0 TO 27 STEP 9 


250 


CLIP 1,1+9,0,15 


260 


FRAME 


270 


NEXT I 


280 


CLIP OFF 


290 


CSIZE 50 


300 


MOVE 0,0 


310 


LABEL "AbCd" 


320 


CSIZE 7,. 45 


330 


LORG 6 


340 


MOVE 18,22 


350 


LABEL "Size of Character in 


360 


END 



\ 



\ 



> Draw all the little Xs. 



\ 



> Draw boxes around the character cells 
/ 
Deactivate clipping so LABELS will work 
Character cells half the screen high 
Starting point (LORG 1 by default) 
Sample letters 



Character Cell" 



\ 



> Write the title 
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Figure 2-3. Character Cells (CharCell) 

As the diagram shows, a character is drawn inside a rectangle, with some space on all 
four sides. The character's height and width are measured in GDUs and are specified 
by the CSIZE statement. Program lines 250 through 280 subdivide the rectangle into 
four 9 wide by 15 high grids. Characters are drawn in this framework, called the symbol 
coordinate system. Of course, the little Xs in the plot above are not drawn when you 
label a string of text; they are there solely to show the position of the characters within 
the character cell. 

Again, character cell height is measured in GDUs, and the definition of aspect ratio for 
a character is identical to the definition of aspect ratio for the hard clip limits mentioned 
earlier: the width divided by the height. Thus, if you want short, fat letters, use an 
aspect ratio of 1.5 or larger. If you want tall, skinny letters, use an aspect ratio less than 
0.5. 

CSIZE 3 Cell 3 GDUs high, aspect ratio 0.6 (default). 

CSIZE 6, .3 Cell 6 GDUs high, aspect ratio 0.3 (tall and skinny). 
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CSIZE 1,2 Cell 1 GDU high, aspect ratio 2 (short and fat). 

Note that you do not have to specify a second parameter (the aspect ratio) in the CSIZE 
statement. This defaults to 0.6. 



The second statement you need is LORG, which means label origin. This lets you specify 
which point on the label ends up at the point moved to before writing the label. You 
may load the following program from file "Lorg" on the Manual Examples Disc. 

Clear the alpha screen 

Initialize various graphics parameters 

Use the internal screen 

Turn on the graphics screen 

Isotropic scaling: Left/Right/Bottom/Top 

Draw a box around the screen 

Loop on LORG parameters 

Left-center origin for the "LORG n =" 

Characters cell 4 GDUs high 

Move to position for "LORG n =" label 

Write the label 



100 


CLEAR SCREEN 


110 


GINIT 


120 


PLOTTER IS CRT, "INTERNAL" 


130 


GRAPHICS ON 


140 


SHOW 0.10,10.5.0 


150 


FRAME 


160 


FOR Lorg=l TO 9 


170 


LORG 2 


180 


CSIZE 4 


190 


MOVE O.Lorg 


200 


LABEL "LORG"; Lorg ;"=" 


210 


MOVE 8+.l.Lorg+.l 


220 


DRAW 8-.l.Lorg-.l 


230 


MOVE 8-.l,Lorg+.l 


240 


DRAW 8+.l,Lorg-.l 


250 


LORG Lorg 


260 


CSIZE 6 


270 


MOVE 8. Lorg 


280 


LABEL "TEST" 


290 


NEXT Lorg 


300 


END 



\ 



\ 



> Draw an "X" to show where pen is 
/ 
Specify LORG for "TEST". 
. . . and larger letters 
Move the center of the "X" 
Write "TEST", using current LORG 
And so forth 
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LORG 1 
LORG 2 
LORG 3 
LORG 4 
LORG 5 
LORG G 
LORG 7 
LORG 8 
LORG 9 



TEST 
X 

xTEST 



TE 
x 

TD6T 



TE! 



& 



T 



x 

TESTx 

TEST* 



Figure 2-4. Label Origins (Lorg) 

The x 's indicate where the pen was moved to before labelling the word "TEST" . What 
this diagram means is that, for example, if LORG 1 is in effect, and you move to 4,5 to 
write a label, the lower left of that label would be at 4,5. This automatically compensates 
for the character size, aspect ratio, and label length. It makes no difference whether there 
is an odd or even number of characters in the label. If LORG 6 had been in effect, and 
you had moved to 4,5, the center of the top edge of the label would be at 4,5. You 
can readily see how useful this statement is in centering labels, both horizontally and 
vertically. 
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The third statement you need to know is LDIR, meaning label direction. This specifies 
the angle at which the subsequent labels will be drawn. The angle is specified in the 
current angular units, and is either DEG (degrees) or RAD (radians). For example, 
assuming degrees is the current angular mode: 



LDIR Writes label horizontally to the right. 

LDIR 90 Writes label vertically, ascending. 

LDIR 14 Writes label ascending a gentle slope, up and right. 

LDIR 180 Writes label upside down. 

LDIR 270 Writes label vertically, descending. 

In the program below, (which is in the file "Ldir" on the Manual Examples Disc) you'll 
note that LORG 2 was specified, and this remained in effect for many LDIRs. Each label 
is centered on the left edge (relative to the label, remember). 

Clear the alpha display 

Initialize various graphics parameters 

Use the internal screen 

Turn on the graphics screen 

(Series 200 computers) 

Draw a box around the screen 

Anisotropic units; Left/Right/Bottom/Top 

Angular mode: Degrees 

Label origin is left center 

Every 10 degrees 

Labelling angle 

Move to center of screen 

Write using the current LDIR 

And so on 



100 


CLEAR SCREEN 




110 


GINIT 




120 


PLOTTER IS CRT 


"INTERNAL" 


130 


GRAPHICS ON 




140 






150 


FRAME 




160 


WINDOW -1,1,-1 


1.1 


170 


DEG 




180 


LORG 2 




190 


FOR Angle=0 TO 


350 STEP 10 


200 


LDIR Angle 




210 


MOVE 0.0 




220 


LABEL " 


-LDIR"; Angle 


230 


NEXT Angle 




240 


END 
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Figure 2-5. Changing Label Directions (Ldir) 

The label origin specified by LORG is relative to the label, not the plotting surface, and 
it is independent of the current label direction. For example, if you have specified 

LORG 3 
DEG 

LDIR 90 
MOVE 6.8 

and then write the label, it is written going straight up, not horizontally. Therefore, it 
is the upper left corner of the label which is at point 6,8 relative to the rotated label. 
Relative to the plotting device, however, it is the lower left corner of the label which is 
at 6,8 (in this example) because the label has been rotated. 

Now we can discuss the statement which actually causes labels to be written: LABEL. 
LABEL takes into account the most recently-specified CSIZE, LDIR and LORG when it 
writes a label. You must position the label, however, by using (for example) a MOVE 
statement to get to the point at which you want the label to be placed. 
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All four statements have been utilized in the following update to our progressive plotting 
program. You may load this program from file "SinLabel" on the Manual Examples Disc. 

Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Turn on the graphics screen 
Determine how many GDUs wide the screen is 
Determine how many GDUs high the screen is 
Reference point: center of top of label 
Move to middle of top of screen 
Write title of plot 

Angular mode is degrees (used in LDIR) 
Specify vertical labels 
Specify smaller characters 
Move to center of left edge of screen 
Write Y-axis label 

Reference point : center of bottom of label 
Horizontal labels again 
X: center of screen; Y: above key labels 
Write X-axis label 
_max, . 15*Y_gdu_max, .9*Y_gdu_max 

Draw a box around defined subset 
Anisotropic scaling: left/right/bottom/top 
Points to be plotted. . . 
Get a data point and plot it against X 
et cetera 



100 


CLEAR SCREEN ! 


110 


GINIT ! 


120 


PLOTTER IS CRT, "INTERNAL" ! 


130 


GRAPHICS ON ! 


140 


X_gdu_max=100*MAX ( 1 , RATIO) ! 


150 


Y_gdu_max=100*MAX(l,l/RATI0) ! 


160 


LORG 6 ! 


170 


MOVE X_gdu_max/2 , Y_gdu_max ! 


180 


LABEL "VOLTAGE VARIANCE" ! 


190 


DEG ! 


200 


LDIR 90 ! 


210 


CSIZE 3.5 ! 


220 


MOVE , Y_gdu_max/2 ! 


230 


LABEL "Voltage" ! 


240 


LORG 4 ! 


250 


LDIR ! 


260 


MOVE X_gdu_max/2, .07*Y_gdu_max! 


270 


LABEL "Time (seconds)" ! 


280 


VIEWPORT . l*X_gdu_max, .99*X_gdu 


! Def 


ine subset of screen area 


290 


FRAME ! 


300 


WINDOW 0.100,16,18 ! 


310 


FOR X=2 TO 100 STEP 2 ! 


320 


PLOT X.RND+16.5 ! 


330 


NEXT X ! 


340 


END 
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Figure 2-6. Example of Labeling (SinLabel) 

Many times it's nice to have the most important titles not only in large letters, but bold 
letters, to make them stand out even more. It is possible to achieve this effect by plotting 
the label several times, moving the label origin just slightly each time. In the following 
version of the program (in file "SinLabel2" on your Manual Examples Disc), notice lines 
180 through 210. The loop variable, I, goes from —.3 to .3 by tenths. This is the offset in 
the X direction (in GDUs 1 ) of the label origin. Since this is being labelled with LORG 6 
in effect, the label origin (the point moved to immediately prior to labelling) represents 
the center of the top edge of the label. 



1 Technically, a MOVE uses UDUs for its units, but until a SHOW or WINDOW is executed, UDUs are 
identical to GDUs. 
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100 


CLEAR SCREEN ! 


110 


GINIT ! 


120 


PLOTTER IS CRT ."INTERNAL" ! 


130 


GRAPHICS ON ! 


140 


X_gdu_max=100*MAX(l, RATIO) ! 


150 


Y_gdu_max=100*MAX(l,l/RATI0) ! 


160 


LORG 6 ! 


170 


FOR I=-.3 TO .3 STEP .1 ! 


180 


MOVE X_gdu_max/2+I , Y_gdu_max ! 


190 


LABEL "VOLTAGE VARIANCE" ! 


200 


NEXT I ! 


210 


DEG ! 


220 


LDIR 90 ! 


230 


CSIZE 3.5 ! 


240 


MOVE , Y_gdu_max/2 ! 


250 


LABEL "Voltage" ! 


260 


LORG 4 ! 


270 


LDIR ! 


280 


MOVE X_gdu_max/2 , . 07*Y_gdu_max ! 


290 


LABEL "Time (seconds)" ! 


300 


VIEWPORT . l*X_gdu_max, .99*X_gdu 


! Def 


ine subset of screen area 


310 


FRAME ! 


320 


WINDOW 0,100,16,18 ! 


330 


FOR X=2 TO 100 STEP 2 ! 


340 


PLOT X.RND+16.5 ! 


350 


NEXT X ! 


360 


END 



Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Turn on the graphics screen 
Determine how many GDUs wide the screen is 
Determine how many GDUs high the screen is 
Reference point : center of top of label 
Offset of X from starting point 
Move to about middle of top of screen 
Write title of plot 
Next position for title 
Angular mode is degrees (used in LDIR) 
Specify vertical labels 
Specify smaller characters 
Move to center of left edge of screen 
Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels again 
X: center of screen; Y: above key labels 
Write X-axis label 
_max, . 15*Y_gdu_max, .9*Y_gdu_max 

Draw a box around defined subset 
Anisotropic scaling: left/right/bottom/top 
Points to be plotted. . . 
Get a data point and plot it against X 
et cetera 
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Figure 2-7. Bold Labels (SinLabel2) 

This method can also be used for offsetting in the Y direction. Or, offset both X and Y. 
This will give you characters which are thick in a diagonal direction, which makes them 
look like they are coming out of the page at you. However, a more typical holding is 
produced by offsetting only in the X direction. 

Now we know what we are measuring — voltage vs. time — but still the units are not 
shown. As we saw in the last chapter, what is needed is an X-axis and a Y-axis, and 
they need to be labelled with numbers in appropriate places. 



Using Graphics Effectively 2-17 



Axes and Grids 

The AXES statement and the GRID statement do similar operations. We saw in the last 
chapter how to use the AXES statement. The GRID statement causes the major tick 
marks to extend all the way across the plotting surface. 



Once we have the axes drawn, we must label various points along them with numbers 
designating the values at those points. Once again, we use the LABEL statement. You 
may load this program from file "SinAxes" on the Manual Examples Disc. 

Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Turn on the graphics screen 
Determine how many GDUs wide the screen is 
Determine how many GDUs high the screen is 
Reference point: center of top of label 
Offset of X from starting point 
Move to about middle of top of screen 
Write title of plot 
Next position for title 
Angular mode is degrees (used in LDIR) 
Specify vertical labels 
Specify smaller characters 
Move to center of left edge of screen 
Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels again 
X: center of screen; Y: above key labels 
Write X-axis label 
_max, . 15*Y_gdu_max, .9*Y_gdu_max 

Draw a box around defined subset 

Anisotropic scaling: left/right/bottom/top 

Draw axes with appropriate ticks 

So labels can be outside VIEWPORT limits 

Smaller chars for axis labelling 

Ref. pt: Top center |\ 



100 


CLEAR SCREEN ! 


110 


GINIT ! 


120 


PLOTTER IS CRT, "INTERNAL" ! 


130 


GRAPHICS ON ! 


140 


X_gdu_max=100*MAX(l. RATIO) ! 


150 


Y_gdu_max=100*MAX ( 1 , 1/RATI0) ! 


160 


LORG 6 ! 


170 


FOR I=-.3 TO .3 STEP .1 ! 


180 


MOVE X_gdu_max/2+I,Y_gdu_max! 


190 


LABEL "VOLTAGE VARIANCE" ! 


200 


NEXT I ! 


210 


DEG ! 


220 


LDIR 90 ! 


230 


CSIZE 3.5 ! 


240 


MOVE . Y_gdu_max/2 ! 


250 


LABEL "Voltage" ! 


260 


LORG 4 ! 


270 


LDIR ! 


280 


MOVE X_gdu_max/2 , . 07*Y_gdu_max ! 


290 


LABEL "Time (seconds)" ! 


300 


VIEWPORT . l*X_gdu_max, .98*X_gdu 


! Def 


ine subset of screen area 


310 


FRAME ! 


320 


WINDOW 0,100,16,18 ! 


330 


AXES 1, .05.0,16,10,5.3 ! 


340 


CLIP OFF ! 


350 


CSIZE 2.5, .5 ! 


360 


LORG 6 ! 
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370 


FOR 1=0 TO 100 STEP 


10 


380 


MOVE 1,15.99 




390 


LABEL USING "t.K" 


I 


400 


NEXT I 




410 


LORG 8 




420 


FOR 1=16 TO 18 STEP 


.25 


430 


MOVE -.5,1 




440 


LABEL USING "#,DD 


DD" ;I 


450 


NEXT I 




460 


PENUP 




470 


FOR X=2 TO 100 STEP 


2 


480 


PLOT X.RND+16.5 




490 


NEXT X 




500 


END 





Every 10 units | \ 

A smidgeon below X-axis I > Label X-axis 

Compact; no CR/LF | / 

et sequens |/ 

Ref. pt: Right center |\ 

Every quarter | \ 

Smidgeon left of Y-axis I > Label Y-axis 

DD.DD; no CR/LF | / 

et sequens |/ 

! Points to be plotted 
! Plot a data point 



> 16.75 - 



VOLTHGE VRRIHNCE 




Time (seconds) 



Figure 2-8. Labeled Axes (SinAxes) 
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Note that the tick marks drawn by the AXES statement extend only toward the interior 
of the graph. This was deliberate. Clipping (automatically put into effect by the 
VIEWPORT statement) was still active at the soft clip limits. If the CLIP OFF statement 
had been placed before the AXES statement, the tick marks would have extended on both 
sides of the axes. However, the axes themselves would have extended across the entire 
width of the hard clip limits and right through the axes' labels. 

The CLIP OFF statement was necessary, though. The LABEL statement draws the 
letters as a series of vectors (lines), and any lines which are outside the current soft 
clip limits (when CLIP is ON) are cut off. Which means that had line 350 (the CLIP 
OFF) been missing from the program, none of the axis labels would have been drawn, 
since they are all outside the VIEWPORT area. Of course, the main titles ("VOLTAGE 
VARIANCE" , "Voltage" , and "Time (seconds)" ) would still have been drawn, because 
they are done before the VIEWPORT is executed. 

If your graph needs to be read with more precision than the AXES statement affords, 
you can use the GRID statement. This is similar to AXES, except the major ticks extend 
across the entire soft clip area, and the minor ticks for X and Y intersect in little crosses 
between the grid lines. The previous program has only one change: the AXES statement 
has been replaced by a GRID statement. 

GRID 5, .25,0,16,2,2,1 ! Draw grid with appropriate ticks 
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VOLTHGE VRRIHNCE 




38 4B 58 68 

T i me ( seconds ) 



Figure 2-9. Labeled Grid 

Note that not only was the keyword AXES replaced by GRID, some of the parameters 
were changed also. The reason for this is that the minor ticks specified in the AXES 
statement were so close together that the minor tick crosses drawn by the GRID 
statement would have overlapped. The end result would have been a grid with even 
the minor ticks extending all the way across the soft clip area. 
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Strategy: Axes vs. Grids 

On many occasions, an application is defined such that there is no question as to which 
statement to use. Other times, however, it is not such a cut-and-dried situation and you 
want to weigh the alternatives carefully before setting your program in concrete. To aid 
you in the decision, here are some pros and cons to both statements. 

Advantages of AXES: 

• It executes much faster than GRID. This is for two reasons. First, there is much less 
calculating the computer must do, and second, there is much less actual drawing of 
lines the computer must do. This becomes especially evident when sending a plot 
to a hard-copy plotting device where physical pen must be hauled around. 

• It does not clutter the plot as much. Reference points are available at the axes, but 
there is no question about where the data curve is. When using GRID, it is possible 
to lose the data curve among the reference lines if it is close to being horizontal or 
vertical. 

Advantages of GRID: 

• Interpolation and estimation are much more accurate due to the great number of 
reference ticks and lines; one need not estimate horizontal and vertical lines to refer 
back to the axis labels. 

• Usually there is no need to use a FRAME statement to completely enclose the 
soft clip limits, as is often desired, because the major tick marks from the GRID 
statement would probably redraw the lines. Of course, this is dependent upon the 
Major Tick count. 

There is a way to get the best of both worlds, however. If you want to be able to 
estimate data points very accurately from the finished plot, but also want to prevent the 
plot from appearing too cluttered, it can be done. Below is a plot drawn by a program 
identical to the previous one except for the GRID statement. The GRID statement used 
specifies exactly the same parameters as the AXES statement (two programs ago) with 
one exception: the Major Tick Length parameter is reduced. This causes the tick crosses 
(the little plus signs) to be reduced to dots. Using this strategy allows easy interpolation 
of data points (to the same accuracy previously used in the AXES statement), but does 
not clutter the graph nearly as much as normal ticks would. In fact, had we used the 
default minor tick length, the length of the lines making up the tick crosses would have 
been greater than the distance between the ticks. Thus they would have merged together 
to make solid lines, extending all the way across and cluttering the graph. 
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GRID 1. .05.0.16,10,5, .0001 ! Draw grid with appropriate ticks 



VOLTHGE VHRIHNCE 
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Figure 2-10. Labeled Grid with More Tick Marks 

Be aware when using this strategy of making huge numbers of degenerate tick crosses that 
the computer still thinks of them as crosses, which means that both the horizontal and 
vertical components must be drawn. This looks to you like drawing and then redrawing 
each dot. Therefore, when sending this type of grid to a hard-copy plotter, do not be 
averse to starting your plot, and then reading the remainder of this chapter. 

Another way to reach a compromise between ease of interpolation and lack of clutter is 
to use both AXES and GRID in the same program. Note the program below. GRID 
is used for the major tick lines, but since the minor tick crosses are not desired within 
each rectangle between the major tick lines, AXES is used to specify minor ticks. This 
program is in the file "SinGrdAxes" on the Manual Examples Disc. 
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100 CLEAR SCREEN 

110 GINIT 

120 PLOTTER IS CRT, "INTERNAL" 

130 GRAPHICS ON 

140 LORG 6 

150 X_gdu_max=100*MAX(l, RATIO) 

160 Y_gdu_max=100*MAX(l,l/RATIO) 

170 FOR I=-.3 TO .3 STEP .1 

180 MOVE X_gdu_max/2+I,Y_gdu_max 

190 LABEL "VOLTAGE VARIANCE" 

200 NEXT I 

210 DEG 

220 LDIR 90 

230 CSIZE 3.5 

240 MOVE 0,Y_gdu_max/2 

250 LABEL "Voltage" 

260 LORG 4 

270 LDIR 

280 MOVE X_gdu_max/2 , . 07*Y_gdu_max 

290 LABEL "Time (seconds)" 

300 VIEWPORT .l*X_gdu_max, .98*X_gdu 

! Define subset of screen area 

310 WINDOW 0,100.16,18 

320 AXES 1. .05,0,16,5,5,3 

330 AXES 1, .05.100.18,5.5.3 

340 GRID 10. .25.0.16.1,1 

350 CLIP OFF 

360 CSIZE 2.5, .5 

370 LORG 6 

380 FOR 1=0 TO 100 STEP 10 

390 MOVE 1,15.99 

400 LABEL USING "#.K";I 

410 NEXT I 

420 LORG 8 

430 FOR 1=16 TO 18 STEP .25 

440 MOVE -.5.1 

450 LABEL USING "#.DD.DD";I 

460 NEXT I 

470 PENUP 

480 FOR X=2 TO 100 STEP 2 

490 PLOT X.RND+16.5 

500 NEXT X 

510 END 



Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Turn on the graphics screen 
Reference point : center of top of label 
Determine how many GDUs wide the screen is 
Determine how many GDUs high the screen is 
Offset of X from starting point 
Move to about middle of top of screen 
Write title of plot 
Next position for title 
Angular mode is degrees (used in LDIR) 
Specify vertical labels 
Specify smaller characters 
Move to center of left edge of screen 
Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels again 
X: center of screen; Y: above key labels 
Write X-axis label 
.max, . 15*Y_gdu_max, . 9*Y_gdu_max 

Anisotropic scaling: left/right/bottom/top 

Draw axes intersecting at lower left 

Draw axes intersecting at upper right 

Draw grid with no minor ticks 

So labels can be outside VIEWPORT limits 

Smaller chars for axis labelling 

Ref. pt: Top center |\ 

Every 10 units I \ 

A smidgeon below X-axis I > Label X-axis 

Compact; no CR/LF I / 

et sequens 1/ 

Ref. pt: Right center |\ 

Every quarter | \ 

Smidgeon left of Y-axis I > Label Y-axis 

DD.D; no CR/LF I / 

et sequens 1/ 

LABEL statement leaves the pen down 

Points to be plotted. . . 

Get a data point and plot it against X 

et cetera 
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VOLTAGE VARIANCE 



> 16.75 







30 48 58 

Time (seconds) 



Figure 2-11. Using AXES and GRID (SinGrdAxes) 

Note that two AXES statements were used. The parameters are identical save for the 
position of the intersection. The first AXES specifies an intersection position of 0,16: 
the lower left corner of the soft clip area. The second specifies an intersection position 
of 100,18: the upper right corner of the soft clip area. 

Also note that the FRAME statement was removed; the lines around the soft clip limit 
were being drawn by both the pair of AXES statements and the GRID statement anyway. 

This is the final version of our illustrative series of examples. The series of examples was 
used to help you grow in ability to create graphics programs and see how they can be 
structured to illustrate information generated from raw data (hypothetically input using 
the RND function). In actual practice the data source could have been a voltmeter or 
other device. 
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Miscellaneous Graphics Concepts 

Clipping 

Something that occurs completely "behind the scenes" in your computer when drawing 
is a process called clipping. Clipping is the process whereby lines that extend over the 
defined edges of the drawing surface are cut off at those edges. There are two different 
clipping boundaries at all times: the soft clip limits and the hard clip limits. The hard 
clip limits are the absolute boundaries of the plotting surface, and under no circumstances 
can the pen go outside of these limits. The soft clip limits are user-definable limits, and 
are denned by the CLIP statement. 

CLIP 10,20.5.Ymin,Ymax 

This statement defines the soft clip boundaries only; hard clip limits are completely 
unaffected. After this statement has been executed, all lines which attempt to go outside 
the X limits (in UDUs) of 10 and 20.5, or the Y limits (in UDUs) of Ymin and Ymax will 
be truncated at the appropriate edge. Clipping at the soft clip limits can be turned off 
by the statement: 

CLIP OFF 

and it can be turned back on, using the same limits, by 

CLIP ON 

If you want the soft clip limits to be somewhere else, use the CLIP statement with four 
different limits. Only one set of soft clip limits can be in effect at any one time. Clipping 
at the hard clip limits cannot be disabled. 

The VIEWPORT statement, in addition to defining how WINDOW coordinates map 
into the VIEWPORT area, turns on clipping at the specified VIEWPORT edges. 
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Drawing Modes 

On a monochromatic CRT, there are three different drawing modes available. (For 
selecting pens with a color CRT, see the "Color Graphics" chapter.) The three pens 
perform the following actions: 

Table 2-1. Monochromatic Pens 



Pen 
Number 



1 

-1 





Function 



Draws lines (turns on pixels) 
Erases lines (turns off pixels) 
Complements lines (changes pixels' states) 



A characteristic of drawing with pen —1 or pen 1 is that if a line crosses a previously- 
drawn line, the intersection will be the same "color" as the lines themselves. When 
drawing with pen 0, and a line crosses a previously-drawn line, the intersection becomes 
the opposite state of the lines. For example, assume a black background (like right after 
a GCLEAR). You select PEN 0, then draw a pair of AXES. When the first axis is drawn, 
all pixels are off, so the line being drawn causes all pixels to be turned on along its length. 
However, when the second axis is drawn, it will turn on pixels until it gets to the other 
axis. At that point, the pixel is on, so it gets turned off. After that, the rest of the pixels 
are off, so they are again turned on. 

This concept is illustrated by the following program (file "Pen" on the Manual Examples 
Disc). The listing is given so you can see it in action, but since it is a dynamic display, it 
makes little sense to show a snapshot of it. Line 150 of the program defines the type of 
operation the program will exhibit. If Pen equals zero, all lines will complement, because 
lines 610 and 680 select pen —0 and +0, which are identical. When you wish to change 
the program to drawing and erasing mode, change line 150 to say Pen=l. Then lines 610 
and 680 will select pens —1 and +1, respectively. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



CLEAR SCREEN 

INTEGER Polygon , Polygons , Side , Sides , Pen 
Polygons=20 
Sides=3 
Pen=0 

ALLOCATE INTEGER X(0: Polygons- 1 , 1 : Sides) ,Y(0: Polygons- 1 . 1 : Sides) 
ALLOCATE INTEGER Dx(Sides) .Dy(Sides) 
RANDOMIZE 
GINIT 

PLOTTER IS CRT, "INTERNAL" 
GRAPHICS ON 
WINDOW 0,511,0,389 
PEN Pen 

FOR Side=l TO Sides 
X(0.Side)=RND*512 
Y(0,Side)=RND*390 
PLOT X (0 , Side) . Y (0 , Side) 
NEXT Side 

IF Sides>2 THEN PLOT X(0, 1) ,Y(0, 1) 
GOSUB Define.deltas 
FOR Polygon=l TO Polygons -1 
PENUP 
FOR Side=l TO Sides 

Temp=X (Polygon- 1 , Side) +Dx (Side) 
IF Temp>511 THEN 

Dx(Side)=-Dx(Side) 
ELSE ! (it's not off right side) 

IF Temp<0 THEN Dx(Side)=-Dx(Side) 
END IF ! (off right side?) 
X (Polygon , Side) =X (Polygon- 1 , Side) +Dx (Side) 
Temp=Y (Polygon- 1 , Side) +Dy (Side) 
IF Temp>389 THEN 

Dy (Side) =-Dy (Side) 
ELSE ! (it's not off top) 

IF Temp<0 THEN Dy (Side) =-Dy (Side) 
END IF ! (off the top?) 
Y (Polygon, Side) =Y (Polygon- 1. Side) +Dy (Side) ! Calculate new Y 
PLOT X (Polygon, Side) ,Y (Polygon, Side) ! Draw line to new point 
NEXT Side ! Loop for next side of polygon 

IF Sides>2 THEN PLOT X (Polygon, 1) ,Y (Polygon, 1) ! If line, don't close 



Clear the alpha display 

Make loops faster 

How many polygons? 

How many sides apiece? 

1: Draw/ erase; 0: Complement 



Different each time 

Initialize graphics parameters 

Use the internal screen 

Turn on graphics screen 

Integer arithmetic is faster 

Select appropriate pen 

For each vertex. . . 

. . .define a starting point. . . 

. . .for both X and Y. . . 

. . . then draw to that point . 

et cetera 

If simple line, don't close 

Get dx and dy for each vertex 

Draw all the polygons 

Don't connect polygons 

Each vertex of each polygon 

Avoid recalculation 



\ 



\ 



> Is X out of range? 



/ 



! Calculate next X 
Avoid recalculation 
\ 
\ 

> Is Y out of range? 
/ 



/ 



NEXT Polygon 

New=0 

ON CYCLE 10 GOSUB Define.deltas 

LOOP 



Get each polygon 
Start re-use at entry 
Change deltas periodically 
Ad infinitum. . . 
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540 


IF New=0 THEN 


Boundary condition? 


550 


Previous=Polygons- 1 


Start re-using over 


560 


ELSE ! (new>0) 




570 


Previou8=(Previous+l) MOD Polygons 


Re-use next entry 


580 


END IF ! (new=0?) 




590 


PENUP 


Don't connect polygons 


600 


PEN -Pen 


This works either way for Pen 


610 


DISABLE 


Don't interrupt in "Side" loop 


620 


FOR Side=l TO Sides 


\ 


630 


PLOT X (New, Side), Y (New, Side) 


\ 


640 


NEXT Side 


> Erase oldest line 


650 


IF Sides>2 THEN PLOT X(New, 1) ,Y(New, 1) 


/ 


660 


PENUP 


/ 


670 


PEN Pen 


Drawing pen 


680 


FOR Side=l TO Sides 


\ 


690 


Temp=X (Previous , Side) +Dx(Side) 


\ 


700 


IF Temp>511 THEN 


\ 


710 


Dx(Side)=-Dx(Side) 


\ 


720 


ELSE 


\ 


730 


IF Temp<0 THEN Dx(Side)=-Dx(Side) 


\ 


740 


END IF 


\ 


750 


X (New , Side) =X (Previous , Side) +Dx (Side) 


\ 


760 


Temp=Y (Previous . Side) +Dy (Side) 


\ Draw the new line 


770 


IF Temp>389 THEN 


/ same way as before. 


780 


Dy(Side)=-Dy(Side) 


/ 


790 


ELSE 


/ 


800 


IF Temp<0 THEN Dy (Side) =-Dy (Side) 


/ 


810 


END IF 


/ 


820 


Y (New , Side) =Y (Previous , Side) +Dy (Side) 


/ 


830 


PLOT X (New, Side), Y (New .Side) 


/ 


840 


NEXT Side 


/ 


850 


IF Sides>2 THEN PLOT X(New, 1) ,Y(New, 1) 


/ 


860 


ENABLE 


Interrupts OK again 


870 


New=(New+l) MOD Polygons 


Next one to re-use. 


880 


END LOOP 


End of infinite loop 


890 
900 


r\*^i-** Jm.14.mm. i 




FOR Side=l TO Sides 


For each vertex 


910 


Dx(Side)=RND*3+2 


Magnitude of this dx 


920 


IF RND<.5 THEN Dx (Side) =-Dx (Side) 


Sign of this dx 


930 


Dy(Side)=RND*3+2 


Magnitude of this dy 


940 


IF RND<.5 THEN Dy (Side) =-Dy (Side) 


Sign of this dy 


950 


NEXT Side 


et cetera 


960 


RETURN 


back to the main program 


970 


END 





Observe when running the program in complementing mode that a pixel is on only if it 
has been acted upon by an odd number of line segments. 



Using Graphics Effectively 2-29 



Selecting Line Types 

When a graph is attempting to convey several different kinds of information, colors are 
often used: The red curve signifies one thing, the blue curve signifies another thing, 
etc. But when only one color is available, as on a monochromatic CRT, this method 
cannot be used. Something that can be used, however, is different line types. Even on a 
monochrome CRT, it makes sense to say that the solid line signifies one thing, the dotted 
line signifies another thing, and the dashed line signifies still another. 

There are ten line types available: 



1 LINE TYPE 10 

— I LINE TYPE 9 

— • LINE TYPE 8 

LINE TYPE 7 

LINE TYPE G 

— LINE TYPE 5 
LINE TYPE 4 
LINE TYPE 3 
LINE TYPE 2 

LINE TYPE 1 

Figure 2-12. Series 200 Line Types 
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As you can see, LINE TYPE 1 draws a solid line. LINE TYPE 2 draws only the end 
points of the lines and is the same as moving to a new point, dropping the pen, lifting 
the pen, and repeating. LINE TYPEs 3 through 8 are patterned sequences of on and off. 
With these, the length of each pattern, i.e, the distance the line extends before the on/off 
pattern begins to repeat, can be specified by supplying a second parameter in the LINE 
TYPE statement. This second parameter specifies distance in GDUs. For example, 

LINE TYPE 5.15 

tells the computer to start using a simple dashed line, and to proceed a total of 15 GDUs 
before starting the pattern over. On the CRT, the repeat length will be rounded to a 
multiple of five, with a minimum value of five. 

LINE TYPEs 9 and 10 are solid lines with a minor and major tick mark at the end of each 
line, respectively. The tick mark will be either horizontal or vertical. The orientation 
of the tick marks will be whatever is farther from the angle of the line just drawn. For 
example, if you draw a line at a thirty-degree angle, it is closer to being horizontal than 
it is to being vertical. Thus, tick mark at the end of the line will be vertical. The value 
for major tick size is 2 GDUs, and minor tick length is one half the major tick length. 

For all line types, the computer remembers where in the pattern a line segment ended. 
Therefore, when you start drawing another line segment, the line pattern will continue 
from where it left off. If you want the pattern to start over, just re-execute the LINE 
TYPE statement. 

Storing and Retrieving Images 

If a picture on the screen takes a long time to draw, or the image is used often, it may 
be advisable to store the image itself — not the commands used to draw the image — in 
memory or on a file. 

This may be done with the GSTORE command. First, you must have an INTEGER 
array of sufficient size to hold all the data in the graphics raster. The array size varies 
depending on what computer system you have in general and what monitor you have in 
particular. A formula for calculating array size is: 
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A monochromatic display has 1 bit per pixel. The Model 236C color computer has 4 bits 
per pixel. The Series 300 color monitors have either 4, 6 or 8 bits per pixel. But rather 
than having to get intimately involved with screen resolution and the number of bits per 
pixel, there is a shortcut. The fifth and sixth elements of the integer array passed back 
by GESCAPE operation selector 3 specify the number of rows and columns an integer 
array must have to contain the entire graphics image. For example: 

20 INTEGER A (1:6) 

30 GESCAPE CRT.3;A(*) 

40 PRINT USING "K" ; "Array must have " ; A(5)*A(6) ; " elements (" ,A(5) . "x" , 

A(6).")." 

50 ALLOCATE Gscreen(A(5),A(6)) 

60 GST0RE Gscreen(*) 



The array Gscreen is allocated of the size specified by the "rows" and "columns" numbers 
from the GESCAPE return array. This array holds the picture itself, and it doesn't care 
how the information got to the screen, or in what order the different parts of the picture 
were produced. 

In the following program, the image is drawn with normal plotting commands, and then, 
after the fact, the image is read from the graphics area in memory, and placed into the 
array. After the array is filled by the GSTORE, a curve is plotted on top of the image 
already there. Then, turning the knob changes the value of a parameter, and a different 
curve results. But we do not have to replot the grid, axes and labels. We merely need 
to GLOAD the image (which has everything but the curve and the current parameter 
value). This allows the curve to be inspected almost in real time. This program is 
contained in file "Gstore" on the Manual Examples Disc. 



This progrom uses the GSTORE method mentioned above. 



100 CLEAR SCREEN 

110 GINIT 

120 PLOTTER IS CRT, "INTERNAL" 

130 INTEGER A(l:6) 

140 GESCAPE CRT,3;A(*) 

150 ALLOCATE INTEGER Screend : A(5) 

160 GRAPHICS ON 

170 CSIZE 6 

180 LORG 6 

190 X_gdu_max=100*MAX(l. RATIO) 

200 Y_gdu_max=100*MAX(l,l/RATI0) 

210 FOR I=-.25 TO .25 STEP .1 



Clear the alpha display 
Initialize various graphics parameters. 
Use the internal screen 
Declare array A 

Store operation selector 3 info, in A(*) . 
1:A(6)) 

Turn on the graphics screen 
Large letters for main title 
Reference point: center of top of label 
Determine how many GDUs wide the screen is 
Determine how many GDUs high the screen is 
Offset of X from starting point 
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MOVE X_gdu_max/2+I,Y_gdu_max 

LABEL "Blackbody Radiation" 
NEXT I 
CSIZE 4 

MOVE X_gdu_max/2 , Y_gdu_max* . 95 
LABEL "Temperature (K) : " 
DEG 

LDIR 90 
CSIZE 3.5 

MOVE 0,Y_gdu_max/2 
LABEL "Intensity of Radiation" 
LORG 4 
LDIR 

MOVE X_gdu_max/2 , . 07*Y_gdu_max 
LABEL "Wavelength (microns)" 
VIEWPORT . l*X_gdu_max . . 98*X_gdu_max , . 15*Y_gdu_max . 



Move to about middle of top of screen 

Write title of plot 

Next position for title 

Smaller letters for temperature legend 

Right below main title 

Label offset to left so value will fit 

Angular mode is degrees (used in LDIR) 

Specify vertical labels 

Specify smaller characters 

Move to center of left edge of screen 

Write Y-axis label 

Reference point: center of bottom of label 

Horizontal labels again 

X: center of screen; Y: above key labels 

Write X-axis label 

9*Y_gdu_max 



\ 



380 Xmin=-4 

390 Xmax-3 

400 Xrange = Xmax-Xmin 

410 Dx=.l 

420 Ymin=-5 

430 Ymax=25 

440 Yrange=Ymax-Ymin 

450 Dy=l 

460 WINDOW Xmin.Xmax.Ymin.Ymax 

470 CLIP OFF 

480 FOR Decade=Xmin TO Xmax 

490 FOR Units=l TO l+8*(Decade<Xmax) ! 

500 X=Decade+LGT (Units) 

510 MOVE X.Ymin 

520 DRAW X.Ymax 

530 NEXT Units 

540 NEXT Decade 

550 FOR X=Xmin TO Xmax STEP Dx*10 

560 LORG 6 

570 CSIZE 3 

580 MOVE X,Ymin-Yrange*.01 

590 LABEL USING "#,K";"10 " 

600 CSIZE 2 

610 LORG 1 

620 MOVE X+Xrange*.01,Ymin-Yrange*.03 

630 LABEL USING "#,K";X 

640 NEXT X 

650 CLIP ON 



Calculate X and Y internal data 



/ 

Anisotropic scaling: left/right/bottom/top 

So labels can be outside VIEWPORT limits 



> Draw logarithmic X-axis 



A smidgeon below X- 
Compact; no CR/LF 



et sequens 
I \ 



Label the 
X-axis 
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\ 



I > Only powers of 10 on Y-axis 

I / 

I / 
Logarithmic Y-axis 
Big chars for "10" 

Smidgeon left of Y-axis 

Small char 8 for exponent 



/ 



\ 



Label the 
Y-axis 



AXES Xrange,Dy,Xmin,Ymin,1.5 ! I \ 
AXES Xrange , Dy , Xmax , Ymax ,1,5 
GRID l.Dy*5,Xmin,Ymin 
CLIP OFF 

FOR Y=Ymin TO Ymax STEP Dy*5 
CSIZE 4 
LORG 8 

MOVE Xmin-Xrange*.03.Y 
LABEL USING "#,K";"10" 
CSIZE 2 

LORG 1 ! 

MOVE Xmin-Xrange* . 025 , Y+Yrange* . 01 

LABEL USING "#,K";Y ! Compact; no CR/LF I / 
NEXT Y ! et sequens 1/ 

! Here is where the action starts 

GSTORE Screen (*) ! Store the screen image in the array 

CSIZE 4 ! Same size letters as before 

LORG 1 ! Lower left label origin 

Per=10 ! Number of knob pulses before action taken 

Mantissa=9 ! \ These three statements define the 

Exponent=2 ! > temperature in a way which can be 

Temperature=Mantissa*10~Exponent ! / changed logarithmically. 

Rotation=10 ! Make the subroutine notice first pass 

GOSUB New_ curve ! Load the screen and plot the curve 

ON KNOB .5 GOSUB New.curve ! Look at the knob every half a second 

910 Spin: GOTO Spin ! Looplooplooplooplooplooplooplooplooploop 

920 New_curve: ! 

930 Rotation=Rotation+KNOBX ! Accumulate knob pulses 

940 IF ABS (Rotation) <Per THEN RETURN ! If not enough, return 

950 GLOAD Screen(*) ! Load grid (in effect, erase old curve) 

960 Delta=SGN (Rotation) ! Which way was knob turned? 

970 IF Mantissa=3 AND Exponent=2 AND Delta<0 OR Mantissa=2 AND Exponent=14 AND 

Delta>0 THEN 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 



660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 



! Reached the limits 
BEEP 100 , . 01 ! Let user know 

ELSE ! (in range) 

FOR 1=1 TO INT (ABS (Rotation) /Per) ! Allow rapid change of temperature 

GOSUB Delta ! Increment/decrement logarithmically 

NEXT I 
END IF ! (out of range?) 
Temperature=Mantissa*10~Exponent ! Build temperature value 



Rotation=0 

CLIP OFF 

MOVE 0.25.4 

LABEL USING "K" ; Temperature 

PENUP 

CLIP ON 

FOR X=Xmin TO Xmax STEP Dx*2 



Start knob rotation accumulation again 

Allow label to be written outside viewport 

Go to label location 

Write new temperature 

Label leaves pen down 

Turn clipping back on 

# data points: CEIL((Xmax-Xmin)/Dx+eps) 
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1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 



Y=FNIntensity(10~X. Temperature) ! Calculate intensity 

PLOT X,LGT(Y) ! Get a data point and plot it against X 

NEXT X ! et cetera 

RETURN 
Delta: ! 

IF Mantissa=3 AND Exponent=2 AND Delta<0 THEN RETURN ! \ Have you reached 

IF Mantissa=2 AND Exponent=14 AND Delta>0 THEN RETURN ! / a boundary yet? 



IF Delta>0 THEN 
IF Mantissa=9 THEN 
Exponent=Exponent + 1 
Mantissa=l 
ELSE ! (mantissa<9) 

Mantissa=Manti88a+l 
END IF ! (mantissa=9?) 
ELSE J (delta<0) 
IF Mantissa=l THEN 
Exponent=Exponent- 1 
Mantissa=9 
ELSE ! (mantissa>l) 

Mantissa=Mantissa- 1 
END IF ! (mantissa=l?) 
END IF ! (delta>0?) 
RETURN 
END 
; ************************************************************************ 

Intensity : DEF FNInt ensity (Wavelength , Temperature) 

Intensity=37410/WavelengtlT5/ (EXP(14 . 39/ (Wavelength*Temperature) ) 
RETURN Intensity 
FNEND 



uiocKwise rotation 

Need to increment order of magnitude yet? 

Increment order of magnitude 

Start over with mantissa 

In the middle of an order of magnitude 

Counterclockwise rotation 

Need to decrement order of magnitude yet? 

Decrement order of magnitude 

Start mantissa over again at top end 

In the middle of an order of magnitude 



1) 
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The curve looks like the following display. 



10' 



10' 



£ 10 



10 



10' 
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10 



la' 



Bl ackbody Radiation 

Temperature (K): 1000 
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Figure 2-13. Using GSTORE and GLOAD (Gstore) 
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Data-Driven Plotting 



Often, when plotting data points, they do not form a continuous line like the those in the 
last chapter's programs. One must have the ability to control the pen's position. In the 
last chapter, a passing reference was made to a third parameter in the PLOT statement. 
This third parameter is the pen-control parameter, and its function is to raise or lower 
the pen so many lines can be drawn with one set of data, not just one continuous line. 

When using a single X-position and Y-position in a PLOT statement (as opposed to 
plotting an entire array; we'll cover this a little later), the third parameter is defined in 
the following manner. Though it need not be of type INTEGER, its value should be 
an integer. If it is not, it will be rounded. The third parameter is either positive or 
negative, and at the same time, either even or odd. The evenness/oddness of the number 
determines which action will be performed on the pen, and the sign of the number 
determines when that action will be performed: before or after the pen is moved. 

Table 2-2. Pen Control Parameters 





Even (Up) 


Odd (Down) 


Positive (After) 
Negative (Before) 


Pen Up After Move 
Pen Up Before Move 


Pen Down After Move 
Pen Down Before Move 



The default parameter is +1 — positive odd — therefore, the pen will drop after moving, 
and if the pen is already down, it will remain down, drawing a line. Indeed, this is what 
happened in the first example in Chapter 1. (Zero is considered positive.) 
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Following is a program (program "Leml" on the Manual Examples Disc) which uses pen 
control. It draws a LEM (Lunar Excursion Module). In particular, see how the PLOT 
statement was used with an array specifier. Notice that the X and Y values are in the 
same array as the pen-control parameters. 



100 CLEAR SCREEN 

110 OPTION BASE 1 

120 DIM Lem(33,3) 

130 READ Lem(*) 

140 GINIT 

150 PLOTTER IS CRT, "INTERNAL" 

160 SHOW -10.10,-10,10 

170 GRAPHICS ON 

180 AREA INTENSITY . 125 , . 125 , . 125 

190 PLOT Lem(*) 

200 Lem: ! X Y Pen I X Y Pen 

210 DATA 0, 0, 11 ! 

220 DATA 1.5. 1.-2, 2.5, 2.-1. 

230 DATA -1.5. 4.-1, -2.5, 3.-1. 

240 DATA 0. 0. 7 ! 

250 DATA 0. 0. 6 ! 

260 DATA -2.5, 1,-2. 

270 DATA -2.5. 1. -1 

280 DATA 0. 0. 7 

290 DATA -2.5. -2. -2, 

300 DATA -4, -4.-1 

310 DATA 2.5. -2. -2. 

320 DATA 4. -4.-1 

330 DATA 0. 0, 10 

340 DATA -0.5, -2, -2. -1 

350 DATA 0. 0, 7 

360 END 



2.5, 1, -1, 



Clear the alpha display 
Arrays start at one 
Data and pen- control array 
Define the LEM data 

Initialize various graphics parameters 
Use the internal screen 
Isotropic scaling 
Turn on the graphics screen 
12.5'/, gray 
Plot the data 

IX Y Pen I X Y Pen 
Start of polygon with FILL and EDGE 

2.5, 3, -1, 1.5, 4. -1 ! Octagon 
-2.5, 2, -1, -1.5. 1. -1 
End of first polygon 
Start of polygon with FILL 

2.5.-2,-1, -2.5.-2,-1 ! Box 



-4.5. 



! End of second polygon 
4. -1. -2.5. 0. -1. -5. -4. -2 ! Left Leg 



4.5. -4. -1. 2.5. 0, -1. 5. -4. -2 ! Rt. leg 

! Start of polygon with EDGE 
-3, -1. 1. -3. -1, 0.5. -2, -1 ! Nozzle 

! End of third polygon 



2-38 Using Graphics Effectively 




Figure 2-14. Example of Data- Driven Plotting (Lem2) 

Having the pen-control parameter in a third column of the data array is generally a 
good strategy; it reduces the number of array names you must declare, and when you 
have the data points for the picture, you also have the information necessary to draw it. 
Nevertheless, an array must be entirely of one type, and usually you'll want the data to 
be REAL. If you're pressed for memory, INTEGER numbers take only one-fourth the 
memory REAL numbers take to store. 
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The PLOT keyword can plot an entire array in one statement, but you must have just 
one array holding both the data and pen-control parameters. That is, you cannot have 
the data in a two-column REAL array and the pen-control parameters in a one-column 
INTEGER array, unless you are plotting one point at a time, as above. The array it 
plots must be a single two-column or three-column array. If it is a two-column array, the 
pen-control parameter is assumed to be +1 for every point (pen down after move). If 
you have a third column in the array, the array columns are interpreted in these ways: 



Table 2-3. Pen Control when Plotting Entire Arrays 



Column 1 


Column 2 


Operation 
Selector 


Meaning 


X 


Y 


-2 


Pen up before moving 


X 


Y 


-1 


Pen down before moving 


X 


Y 





Pen up after moving (Same as +2) 


X 


Y 


1 


Pen down after moving 


X 


Y 


2 


Pen up after moving 


pen number 


ignored 


3 


Select pen 


line type 


repeat value 


4 


Select line type 


color 


ignored 


5 


Color value 


ignored 


ignored 


6 


Start polygon mode with FILL 


ignored 


ignored 


7 


End polygon mode 


ignored 


ignored 


8 


End of data for array 


ignored 


ignored 


9 


NOP (no operation) 


ignored 


ignored 


10 


Start polygon mode with EDGE 


ignored 


ignored 


11 


Start polygon mode with FILL and EDGE 


ignored 


ignored 


12 


Draw a FRAME 


pen number 


ignored 


13 


Area pen value 


red value 


green value 


14 


Color 


blue value 


ignored 


15 


Value 


ignored 


ignored 


>15 


Ignored 



For a detailed description of these parameters, see IPLOT, PLOT, RPLOT, or SYMBOL 
in the BASIC Language Reference manual. 
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The AREA INTENSITY statement is how you get shades of gray on a black-and-white 
CRT whose electron gun is either fully on or completely off. You can get seventeen shades 
of gray. This is done through a process called dithering. Dithering is accomplished 
through selecting small groups of pixels 1 , a four-by-four square of them on the Series 
200/300 computers. Various pixels in the dithering box are turned on and off to arrive 
at an "average" shade of gray. There are only seventeen possible shades because out of 
sixteen pixels (the 4x4 box), you can have none of them on, one of them on, two of them 
on, and so forth, up to all sixteen of them on. And it makes no difference which pixels 
are on; they are chosen to minimize the striped or polka-dotted pattern inherent to a 
dithered image. 

For more detail on the AREA INTENSITY and other color-related statements, see the 
"Color Graphics" chapter. 

Translating and Rotating a Drawing 

Often, there is an application where a segment of a drawing must be replicated in many 
places; the same sub-picture needs to be drawn many times. Using the PLOT statement, 
it is possible but rather tedious to do. There is another statement called RPLOT, which 
draws a figure relative to a point of your choice. RPLOT means .Relative PLOT, and 
it causes a figure to be drawn relative to a previously-chosen reference point. RPLOT's 
parameters may be two or three scalars, or a two-column or three-column array; the 
parameters are identical to those of PLOT. 

The picture defined by the data given to an RPLOT statement is drawn relative to a 
point called the current relative origin. This is not necessarily the same as the pen 
position. The current relative origin is the last point resulting from any one of the 
following statements: 



AXES 


DRAW 


FRAME 


GINIT 


GRID 


IDRAW 


IMOVE 


IPLOT 


LABEL 


MOVE 


PLOT 


POLYGON 


POLYLINE 


RECTANGLE 





Typically, a MOVE is used to position the current relative origin at the desired location, 
then the RPLOT is executed to draw the figure. After the RPLOT statement has 
executed, the pen may be in a different place, but the current relative origin has not 
moved. Thus, executing two identical RPLOT statements, one immediately after the 
other, results in the figure being drawn precisely on top of itself. 



i 



The word "pixel" is a blend of the two words "picture element," and it is the smallest addressable point 
on a plotting surface. A Model 236 computer has 512x390-pixel resolution; thus there can be no more 
than 512 dots drawn on any row, or scan line, of the CRT, or 390 dots drawn in any column. 
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A figure drawn with RPLOT can be rotated by using the PIVOT or PDIR statement 
before the RPLOT. The single parameter for a PIVOT or PDIR is a numeric expression 
designating the angular distance through which the figure is to be rotated when drawn. 
This value is interpreted according to the current angular mode: either DEG or RAD. 



Here is a program using an RPLOT. It is found on the Manual Examples Disc under 
the file name "Rplot". Various figures are defined with DATA statements: a desk, a 
chair, a table, and a bookshelf. The program displays a floor layout. Here again, the 
"end polygon mode" codes (the 0,0,7s in the desk and chair definitions) are unnecessary; 
when a polygon mode starts, any previous one ends by necessity. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



CLEAR SCREEN ! Clear the alpha display 

OPTION BASE 1 ! Make arrays start at one 

DIM Room(10,3) ,Desk(18,3) ,Chair(14.3) .Bookshelf (4,3) .Table (4, 3) 
READ Room(*) ,Desk(*) . Chair (*) .Bookshelf (*) ,Table(*) 



GINIT 

PLOTTER IS CRT," INTERNAL" 
GRAPHICS ON 
SHOW 0.120,-10,100 
PLOT Room(*) 
DEG 

READ Object$ 

WHILE Object$<>"***STOP***" 
READ X.Y, Angle 
MOVE X.Y 
PIVOT Angle 
SELECT Object! 
CASE "Desk" 

AREA INTENSITY . 125 . . 125 . . 125 
RPLOT Desk(*) 
CASE "Chair" 

AREA INTENSITY . 5 . . 5 . . 5 
RPLOT Chair (*) 
CASE "Bookshelf" 

RPLOT Bookshelf (*), EDGE 
CASE "Table" 

AREA INTENSITY 0,0,0 
RPLOT Table (*), FILL, EDGE 
END SELECT 
READ Object$ 
END WHILE 



Initialize various graphics parameters 

Use the internal screen 

Display the graphics screen 

Need isotropic units for a map 

Draw outline of room 

Set degrees mode for angles 

What to draw? 

Until done. . . 

Read where and at what angle 

Move in unrotated coordinates 

Set rotation for RPLOTs 



! 87.5'/, gray: dark gray 



50'/, gray: half-and-half 



! 100'/. gray scale: Black 



400 Room: 



DATA 0,60,-2, 0.100.-1, 120,100,-1, 120.30,-1 
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410 

420 

430 Desk: 

440 

450 

460 Chair: 

470 

480 

490 Bookshelf 

500 Table: 

510 Objects: 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 END 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



120,0,-1, 
0.50,-1 
0,0.-2. 
2.-10.-2. 
17.-10.-2, 
-3.9,-2, 
-4.8.-1. 
-4,i.-2. 
20.0.-1. 
25.0.-1, 
14.75.90 
1.65.90 
1.99.0 
Bookshelf . 27 , 99 . 
Chair. 66,44,30 
Desk , 50 , 50 , 30 
Chair. 45.65.210 
Desk, 60.58,210 
Bookshelf ,41,5,0 
Bookshelf ,62,5,0 
Bookshelf , 83 . 5 , 



120.20,-2. 

0.25,-1. 

0.0.11. 

0.0.10. 

0.0.10. 

0.0.11. 

-3,2,-1, 

0.0,10, 

0,0,-2, 

0,0,-2, 

Chair . 

Desk, 

Table , 



40,0,-1. 



40.25.-1 



Chair , 
Chair . 
Chair . 
Chair , 
Chair , 
Chair . 
Chair , 
Chair . 
Table . 
Table , 
Chair . 
Desk. 
***ST0P*** 



20.-10,-1, 0,-10.-1, 
3,-10.5,-1, 3,-10.-1. 
18.-10.5.-1,18,-10.-1, 



3,2,-1 



-4.0,-1, 



20.0.-1, 
2,-10.5.-1. 
17.-10.5.-1 
3.9.-1. 
0.0.7 
4.1.-1. 
20.-4.-1, 
25.-12.-1. 
\ 

> Upper left corner of the room 
/ 
/ 
\ 
> 

/ 



4.8.-1. 

4.0,-1, 
0.-4,-1 
0.-12,-1 



0.0.7 
0.0,7 
0.0.7 



0,0,7 



6,26,0 

16.26.0 

26.26,0 

36,26,0 

63,96,220 

85,83,3 

112.83.0 

100.83.355 

68.99.0 

94,99,0 

105,50,270 

119.60,270 



Center of the room 



Bottom center of room 

> Four chairs by west door 
i 

> Four chairs by northeast tables 

Two tables in upper right 
Desk and chair by east door 



Using Graphics Effectively 2-43 




Figure 2-15. Relative Plotting of a Floor Layout (Rplot) 

There are two points of interest in this program. First, notice that you can specify the 
EDGE and/or FILL parameters in the RPLOT statement itself, in addition to in the 
array. (FILLs and EDGEs are specified in the array by having a 6, a 10, or an 11 in 
the third column of the array.) If FILL and/or EDGE are specified both in the PLOT 
statement and in the data, and the instructions differ, the value in the data replaces the 
FILL or EDGE keyword on the statement. 

The second interesting point is that some of the chairs appear to be under the desks and 
tables; that is, parts of several chairs are hidden by other pieces of furniture. This is 
accomplished by drawing the chair, and then drawing the desk or table partially over the 
chair, and filling the desktop or tabletop with its own fill pattern, which may be black. 
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Incremental Plotting 

Incremental plotting is similar to relative plotting, except that the origin — the point 
considered to be 0,0 — is moved every point. Every time you move or draw to a point, 
the origin is immediately moved to the new point, so the next move or draw will be with 
respect to that new origin. 

There are three incremental plotting statements available: IPLOT, which has the same 
parameters as PLOT and RPLOT; and IMOVE and IDRAW, which have the same 
parameters as MOVE and DRAW, respectively. 



Using Graphics Effectively 2-45 



Below is an example program using IPLOTs. It reads data from data statements 
describing the outlines of certain letters of the alphabet, and then plots them. (See 
"Iplot" on the Manual Examples Disc.) 



100 




CLEAR SCREEN 


! Clear the alpha display 






110 




OPTION BASE 1 


! Make the arrays start at 1 






120 




DIM Array (20. 3) 


! Set aside space for the array 






130 




GINIT 


! Initialize various 


graphics parameti 


ers 




140 




PLOTTER IS CRT. "INTERNAL" ! Use the internal screen 






150 




GRAPHICS ON 


! Turn on graphics screen 






160 




SHOW 1.35.-15,15 


! Isotropic scaling 








170 




FOR Letter=l TO 4 


! Four letters total 








180 




READ Points 


! How many points in 


this letter? 






190 




REDIM Array (Points. 3) 


! Adjust the array size accordingly 






200 




READ Array (*) 


! Read the correct number of points 






210 




MOVE Letter*6.0 


! Move to lower-left 


corner of letter 






220 




IPLOT Array (*) 


! Draw letter 








230 




NEXT Letter 


! et cetera 








240 


F: 


DATA 10. 0,5.-1, 


5,0,-1. 0.-1.-1. 


-4.0,-1, 


0.-1.- 


-1 


250 




DATA 3.0.-1. 


0.-1,-1. -3,0.-1. 


0.-2,-1. 


-1.0,- 


-1 


260 


L: 


DATA 6, 0,5.-1, 


1.0. -1. 0.-4,-1. 


4.0.-1. 


0,-1,- 


-1 


270 




DATA -5,0.-1 










280 


A: 


DATA 12. 2.5.-1. 


1.0. -1. 2,-5.-1. 


-1.0,-1, 


-.4.1 


.-1 


290 




DATA -2.2,0.-1. 


-.4.-1.-1. -1,0.-1. 


1.8,2,-2, 


7.2.- 


-1 


300 




DATA .7.-2,-1, 


-1.4.0,-1 








310 


X: 


DATA 12, 1.9,2.5,-1, 


-1.9.2.5,-1, 1.0,-1, 


15,-2,-1. 


1.5.2 


.-1 


320 




DATA 1.0,-1. 


-1.9.-2.5,-1.1.9.-2.5.-1 


L. -1.0. -1. 


-1.5.2 


.-1 


330 




DATA -1.5.-2.-1. 


-1.0. -1 








340 




END 
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Figure 2-16. Incrementally Plotting Letters (Iplot) 

Drawing Polygons 

When you want a regular 1 polygon, or a part of one, drawn on the screen, there are two 
statements which will help. The first is called POLYGON. 

One attribute of POLYGON is that it forces polygon closure, that is, the first vertex is 
connected to the last vertex, so there is always an inside and an outside area 2 . There are 
two final keywords which may be included in a POLYGON statement, and they are FILL 
and EDGE. FILL causes the interior of the polygon or polygon segment to be filled with 
the current fill color as defined by AREA PEN, AREA COLOR, or AREA INTENSITY. 
FILL specified without EDGE causes the interior of the polygon to be indistinguishable 
from the edge. EDGE causes the edges of the polygon go be drawn using the current 
pen and line type. If both FILL and EDGE are specified (and FILL must be first), the 
interior will be filled, then the edge will be drawn. If neither FILL nor EDGE is specified, 
EDGE is assumed. On an HPGL plotter, only EDGE works. 



In this discussion, polygons drawn when anisotropic units are in effect will also be considered "regular". 
Anisotropic units will cause stretching or compression of the polygons in the X or Y direction. 
Technically, this is true even for the degenerate case of drawing only one side of a polygon, in which 
case a "single" line results. This is actually two lines, from the first point to the last point, and back to 
the first. 
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Polygons can be rotated by specifying a non-zero value in a PIVOT or PDIR statement 
before the POLYGON statement is executed. Also, a PDIR statement can be used 
to specify the angle of rotation. PDIR works with IPLOT, RPLOT, POLYLINE, 
POLYGON, and RECTANGLE. The rotation occurs about the origin of the figure. For 
example, PDIR 15 would rotate a figure 15 units (degrees, radians). 

The shape of the polygon is affected by the viewing transformation specified by SHOW 
or WINDOW. Therefore, anisotropic scaling causes the polygon to be stretched or 
compressed along the X and Y axes. 

The pen status also affects the way a POLYGON statement works. If the pen is up at 
the time POLYGON is specified, the first vertex specified is connected to the last vertex 
specified, not including the center of the polygon, which is the current pen position. If 
the pen is down, however, the center of the polygon is also included in it. Thus, for 
piece-of-pie shaped polygon segments, like are used in pie charts, cause the pen to be 
down before the POLYGON statement is executed. 

After POLYGON has executed, the current pen position is in the same position it was 
before the statement was executed, and the pen is up. 

But I don't want polygon closure- 
There is another statement called POLYLINE which acts much in the same way as 
POLYGON, except it does not connect the last vertex to the first vertex; it does not 
close the polygon. Obviously, then, since the polygon is not closed, there is no "inside" 
or "outside," hence it is meaningless to say FILL or EDGE. 

As in the case of POLYGON, a PIVOT or PDIR statement prior to execution of 
POLYLINE will cause the figure to be rotated. Anisotropic scaling will cause stretching 
or compression along the axes, and if the pen is down prior to invocation of the statement, 
a line will be drawn from the center to the first perimeter point. 

After POLYLINE has executed, the current pen position is in the same position it was 
before the statement was executed, and the pen is up. 

Following is a program which demonstates the use of POLYGON, POLYLINE, PLOT, 
RPLOT, polygon filling, and gray-shading. The program may be loaded from file 
"Scenery" on the Manual Examples Disc. 
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100 CLEAR SCREEN 

110 OPTION BASE 1 

120 DIM Horizon (20 , 2) , Tree (24 , 2) , Tree2 (24 , 2) 

130 GINIT 

140 PLOTTER IS CRT. "INTERNAL" 

150 GRAPHICS ON 

160 WINDOW 0,511,0.389 

170 RANDOMIZE 123456789 

180 ! Draw sunrise 

190 Sun_diameter=30 

200 Sun_delta=6 

210 MOVE 256,190 

220 FOR 1=1/16 TO 1 STEP 1/16 

230 AREA INTENSITY I.I.I 

240 POLYGON Sun_diameter+ (16-16*1) *Sun_delta 

250 NEXT I 

260 ! Draw horizon 

270 Horizon(l.l)=0 

280 Horizon (1. 2) =0 

290 Dx=511/(20-3) 

300 X=-Dx 

310 FOR 1=2 TO 19 

320 X=X+Dx 

330 Horizon(I.l)=X 

340 Horizon(I,2)=185+RND*10 

350 NEXT I 

360 Horizon (20,1) =511 

370 Horizon (20, 2) =0 

380 AREA INTENSITY 0,0,0 

390 PLOT Horizon(*), FILL 

400 PENUP 

410 FOR 1=2 TO 20-1 

420 PLOT Horizon(I.l),Horizon(I,2) 

430 NEXT I 

440 ! Draw clouds 

450 WINDOW -2,2,-15.15 

460 AREA INTENSITY .25.. 25, 

470 FOR 1=1 TO 10 

480 MOVE RND~. 8*4-2. RND*8 

490 POLYGON RND*.8.FILL 

500 NEXT I 

510 WINDOW 0.511,0.389 

520 ! Draw birds 

530 DEG 

540 Phi=70 

550 FOR Bird=l TO 10 

560 Position_angle=RND*360 

570 Di8tance=SQR(RND)*70 



Clear the alpha display 

Arrays start at 1 . 

For PLOT, RPLOT 

Initialize graphics parameters 

Use the internal screen 

Turn on graphics screen 

1 UDU = 1 pixel 

"Looks better" than default 



Diameter of outer layer 
Shrinkage of each brightness 
Center of sun 
All non-black gray shades 
Define dithered gray shade 

,30, FILL ! Draw sun 

! and so forth 



.25 



\ Lower left corner of screen, 

/ for blacking bottom of sun 

Delta X for horizon 

Starting point for X 

All except end points 

Increment X 

Put it in the array 

Random height for roughness 

and so forth 

\ Lower right corner of screen 

/for blacking bottom of sun 

Black 

Erase bottom of sun 

PLOT left pen down 

\ Draw the horizon polygon. 

> but don't include first 
/ and last points (corners) . 



Anisotropic scaling 

25'/, gray shade 

10 ellipses 

Random position 

random size, fill it 

and so forth 

Back to 1 UDU = 1 pixel 



Angular mode: Degrees 

Arc subtended by each wing 

Ten birds enough 

Bird's direction from 100,300 

Bird's distance from 100,300 
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580 X=100+Distance*C0S (Position.angle) 

590 Y=300+Distance*SIN (Position.angle) 

600 Theta=RND*20-10 

610 R=RND*10+10 

620 Lef t_angle=180+ (90-Phi/2) +Theta 

630 X2=X+R*C0S(Left_angle) 

640 Y2=Y+R*SIN(Left_angle) 

650 PIVOT 

660 MOVE X2.Y2 

670 PIVOT Theta+90-Phi/2 

680 POLYLINE R,60,60*Phi/360 

690 Right_angle=Theta-90+Phi/2 

700 X3=X+R*C0S (Right .angle) 

710 Y3=Y+R*SIN (Right .angle) 

720 PIVOT 

730 MOVE X3.Y3 

740 PIVOT Theta+90-Phi/2 

750 POLYLINE R.60,60*Phi/360 

760 NEXT Bird 

770 PIVOT 

780 ! Draw trees 

790 AREA INTENSITY . 5 , . 5 , . 5 

800 Tree(l,l)=-.5 

810 Treed ,2)=0 

820 Tree (2,1) =-.5 

830 Tree(2,2)=l 

840 FOR 1=3 TO 12 STEP 2 

850 Tree(I, l)=-((13-I)/4) 

860 Treed, 2) = (I-l)/2 

870 Tree(I+l.l)=(Tree(I.l)+.5)/2 

880 Tree(I+l,2)=Tree(I.2)+l 

890 NEXT I 

900 FOR 1=13 TO 24 

910 Treed. 1)=-Tree(25-I,l) 

920 Tree(I,2)=Tree(25-I,2) 

930 NEXT I 

940 Y=180 

950 WHILE Y>10 

960 FOR 1=1 TO Y~(Y/180)/2 

970 Y2=RND*20 

980 MOVE RND*511,Y+Y2-15 

990 Size=(200-(Y+Y2))*.l 

1000 MAT Tree2= Tree* (Size) 

1010 RPLOT Tree2(*).FILL 

1020 NEXT I 

1030 Y=Y*.8 

1040 END WHILE 

1050 END 



Bird '8 actual X position 

Bird's actual Y position 

Bird's tilt 

Radius of arcs of birds' wings 

Direction of left arc's center 

Center of left wing's arc (X) 

Center of left wing's arc (Y) 

Unrotated coords for MOVE 

Left arc's center 

Rotated coords for POLYLINE 

Left wing '8 arc 

Right arc's center's direction 

Center of right wing's arc (X) 

Center of right wing's arc (Y) 

Unrotated coords for MOVE 

Right arc's center 

Rotated coords for POLYLINE 

Right wing's arc 

and so forth 

Back to normal for trees 



50*/. gray 
\ 

\ Define by hand the trunk 

/ of the tree 
/ 
\ 

\ 
\ Define programmatically 
/ the branches of the trees 

/ 
/ 
\ The right half of the tree 

\ (and thus the tree array,) 

/ is the mirror image of the 
/ left half. 
Starting value 
For a few iterations. . . 
No. of trees dependent upon Y 
Random variation 
Bottom of center of tree 
Size of tree dependent upon Y 
Scale tree appropriately 
FILL, but don't EDGE 
and so forth 
Go lower on the screen 
for a while. . . 
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Figure 2-17. Using POLYGON and POLYLINE (Scenery) 

Points of note in this program: 

1. The sunrise was created with graduated gray shades in successively smaller "circles" 
(actually 30-sided polygons). 

2. The horizon was created by defining a rough edge on the top half of a polygon 
which blacked out the bottom section of the screen. This covered up the bottom 
of the sun. The white line of the horizon was simple plotting of the horizon array 
without the first and last points. We didn't want the lower corners of the screen to 
be included. 
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3. The clouds were created by plotting "circles" after having invoked anisotropic units; 
thus long, thin ellipses resulted. 

4. The seagulls were created by drawing two arcs with POLYLINE. An arc is created 
by denning an N-sided polygon and drawing less-than-N sides. Note that PIVOT 
was used to cause the starting angle of the arcs to be other than straight to the 
right. 

5. The trees were created by defining an array whose left side is a mirror image of the 
right side. The array is centered around zero in the X direction to allow for scaling 
of the tree simply by multiplying the array by a constant. RPLOT was used to 
place the trees in their various positions. 

Rectangles 

One of the most-used polygons in computer graphics is the rectangle. You can cause a 
rectangle to be drawn by moving to the point at which you want one of the corners to be 
and then specifying which directions to proceed from there, first in the X direction, then 
in the Y direction. Which corner of the rectangle ends up at the current pen position 
depends on the signs of the X and Y parameters. For example, if you want a rectangle 
whose lower left corner is at 3,2 and which is 4 units wide and 5 units high, there are 
four ways you could go about it: 

MOVE 3,2 (Reference point is the lower left corner) 

RECTANGLE 4,5 

or 

MOVE 7,2 (Reference point is the lower right corner) 

RECTANGLE -4.5 

or 

MOVE 3,7 (Reference point is the upper left corner) 

RECTANGLE 4,-5 

or 

MOVE 7,7 (Reference point is the upper right corner) 

RECTANGLE -4,-5 

Again, you can specify FILL, EDGE, or both. FILL will cause the rectangle to be 
filled with the current fill color as specified by AREA PEN, AREA COLOR, or AREA 
INTENSITY. EDGE causes the edge of the rectangle to be drawn in the current pen 
color and line type. If both are specified, FILL must be specified first, and if neither is 
specified, EDGE is assumed. The current pen position is not changed by this statement, 
and pen status prior to execution makes no difference in the resulting rectangle. 
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User-Defined Characters 

For many special-purpose programs, there is a drastic shortage of characters that can be 
displayed on the screen 1 . Greek letters — 7r, A, E, and so forth — are quite often needed 
for mathematics-intensive communication as well as many non-alphabetic symbols like 
^/, oo, and ±. To alleviate this shortage of symbols, the SYMBOL statement allows you 
to draw any definable character. In function, it is similar to PLOT using an array, except 
the figure drawn b Ar SYMBOL is subject to the three transformations which deal wi^h 
character labelling: CSIZE, LDIR, and LORG. 

The first argument needed by the SYMBOL statement is the array containing the 
instructions on what to draw. As in PLOT, this array may either have two or three 
columns. If the third column does not exist, it is assumed to be +1 for every row of the 
array. If it does exist, the valid values for the third-column entries are identical to those 
for PLOT, RPLOT, and IPLOT when using an array. The possible values for the third 
column are listed again here for your convenience. 



User-defined alpha character fonts are available on bit-mapped alpha displays. See the "Communicating 
with the Operator" chapter of BASIC Programming Techniques. 
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Table 2-3. Pen Control when Plotting Entire Arrays (Repeated) 



Column 1 


Column 2 


Operation 
Selector 


Meaning 


X 


Y 


-2 


Pen up before moving 


X 


Y 


-1 


Pen down before moving 


X 


Y 





Pen up after moving (Same as +2) 


X 


Y 


1 


Pen down after moving 


X 


Y 


2 


Pen up after moving 


pen number 


ignored 


3 


Select pen 


line type 


repeat value 


4 


Select line type 


color 




gnored 


5 


Color value 


ignored 




gnored 


6 


Start polygon mode with FILL 


ignored 




gnored 


7 


End polygon mode 


ignored 




gnored 


8 


End of data for array 


ignored 




ignored 


9 


NOP (no operation) 


ignored 




ignored 


10 


Start polygon mode with EDGE 


ignored 




gnored 


11 


Start polygon mode with FILL and EDGE 


ignored 




ignored 


12 


Draw a FRAME 


pen number 


ignored 


13 


Area pen value 


red value 


green value 


14 


Color 


blue value 


ignored 


15 


Value 


ignored 


ignored 


>15 


Ignored 



For more detail on the meaning of these values, see the BASIC Language Reference 
manual. 

Moves and draws specified in an array to be used in a SYMBOL statement are defined 
in the symbol coordinate system. This coordinate system is a character cell, as defined 
earlier in the chapter — a 9x15 rectangle. Figures drawn in this coordinate system may 
be filled or edged or both. The FILL and EDGE keywords may appear in the SYMBOL 
statement itself, or they may be specified in the data array. If FILL and/or EDGE are 
specified in both places, the instruction in the data array overrides that of the statement. 
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One interesting feature of this statement is that values outside the character cell 
boundaries are valid. Thus, you can define characters that are several lines high, several 
characters wide, or both. This feature is used in the following program. The SYMBOL 
statement, by virtue of its syntax, can only be used for one User-Defined Character 
(UDC) at a time; the pen must be moved to the new position before each character. 
Therefore, UDCs cannot be embedded in a string of text. If the situation remained 
this way, the utility of the SYMBOL statement would be limited by its cumbersome 
implementation. The following program makes UDCs much easier to use. It is a special- 
purpose program which calls two general-purpose subprograms. The first subprogram 
(New.udc) is called to define a new UDC. Its parameters are: 1) the character to be 
replaced by the UDC, and 2) the array defining the character. The second subprogram 
(Label) is called after all desired UDCs have been defined. This allows text to be labelled 
(written in graphics mode) intermixing ASCII characters with user-defined characters at 
will. As mentioned above, all user-defined characters are affected by CSIZE, LDIR and 
LORG, so no matter how the label is being written, the UDCs will act properly. 

Four characters are defined below: a Greek capital sigma (the summation sign), infinity 
(a figure eight who's expired), a fat arrow pointing to the right, and a large box. Note 
that the box is three characters wide; it is perfectly legal to have points going outside the 
9x15 bounds of the character cell. This program may be loaded from the file "Symbol" 
on the Manual Examples Disc. 



100 


OPTION BASE 1 










110 


COM /Udc/ 01d_chars$ [20] .Size (20) 


Chars (20. 30. 3) 




120 


REAL Sigma (7. 3) .Infinity (16. 3) .Arrow(9,3) ,Box(12.3) 




130 


READ Sigma (*) .Infinity (*) .Arrow (*) 


,Box(*) 




140 


Sigma: DATA 7.5,-2, 


7.4,-1. 




1.4,-1, 


5.5,8.5, 


150 


DATA 1,13,-1 


7.13.-1. 




7.12.-1 




160 


Infinity: DATA 4,9,-2 


5.10.-1 




6.10.-1. 


7.9,-1 


170 


DATA 7.8,-1. 


6.7,-1, 




5.7.-1. 


4.8.-1 


180 


DATA 4.9.-1. 


3.10.-1. 




2.10.-1, 


1.9,-1 


190 


DATA 1.8.-1. 


2.7,-1, 




3.7,-1, 


4.8,-1 


200 


Arrow: DATA 0,0.6. 


4,4,-2. 




7.8,-1. 


4,12,-1 


210 


DATA 4.10.-1 


1.10,-1, 




1.6,-1, 


4.6,-1 


220 


DATA 0.0.7 










230 


Box: DATA 0,0,6. 


3,0.-2. 




27,0,-1, 


27,15,-1 


240 


DATA 0.15.-1 


0.0,-1. 




3,0,-1. 


3.3.-1 


250 


DATA 24,3,-1 


24,12,-1 




3,12,-1. 


0.0.7 


260 


01d_chars$="" 


! In case anything 


is left in COM 


from the 1 


270 


New_udc(CHR$(168) 


Sigma(*)) ! 


\ 






280 


New_udc(CHR$(169) 


Infinity(*)) ! 


> 


Replace unneeded charact 


290 


New_udc(CHR$(170) 


Arrow (*)) ! 


/ 


User-Defined 


Characters 


300 


New_udc(CHR$(171) 


Box(*)) ! 


/ 
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310 KEY LABELS OFF 

320 CLEAR SCREEN ! Clear the alpha display 

330 GINIT 

340 PLOTTER IS CRT, "INTERNAL" ! Use the internal screen 

350 GRAPHICS ON 

360 SHOW 0,10, -.5, 10 

370 DEG 

380 FOR Csize=10 TO 2 STEP -1 

390 CSIZE Csize 

400 FOR Ldir=0 TO 90 STEP 90 

410 LORG 2 

420 LDIR Ldir 

430 MOVE 10-Csize,10-Csize 

440 Label (" Chars: '"&CHR$(168)fcCHR$(169)ftCHR$(170)&CHR$(171)&" '") 

450 NEXT Ldir 

460 NEXT Csize 

470 END 

480 ! *********************************************************************** 

490 New.udc: SUB New.udc (Char$ , Array (*)) 

500 ! This allows up to twenty new characters to be defined, each having up 

510 ! to thirty elements (rows in the array) for definition. 

520 OPTION BASE 1 

530 COM /Udc/ 01d_chars$ [20] . Size (20) , Chars (20 , 30 . 3) 

540 IF LEN(01d_chars$)=20 THEN 

550 PRINT "User-defined Character table full." 

560 ELSE ! (still room) 

570 Pos=LEN(01d_chars$)+l 

580 01d_chars$ [Pos] =Char$ 

590 Size(Pos)=SIZE(Array.l) 

600 FOR Row=l TO Size (Pos) 

610 FOR Column=l TO 3 

620 Chars (Pos , Row , Column) =Array (Row , Column) 

630 NEXT Column 

640 NEXT Row 

650 END IF ! (room left?) 

660 SUBEND 

670 ! *********************************************************************** 

680 Label: SUB Label (Text$) 
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690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 



Necessary when doing one character at a time 
! Is this to be replaced by a UDC? 



\ 



This prints a character string at the current pen position and using 
the current LORG. LDIR and CSIZE. The LORG will need to be redeclared 
upon returning to the calling context, as this routine needs LORG 1 if 
the text is longer than one character. 
OPTION BASE 1 

COM /Udc/ 01d_chars$ [20] .Size (20) .Chars (20, 30. 3) 
REAL Array (31. 3) 
FOR Char=l TO LEN(Text$) 
IF Char=2 THEN LORG 1 
Char$=Text$ [Char ; 1] 
Pos=P0S (01d_chars$ . Char$) 
IF Pos THEN 

REDIM Array (Size (Pos) ,3) 
FOR Row=l TO Size (Pos) 
FOR Column=l TO 3 

Array (Row , Column) =Chars (Pos , Row , Column) 
NEXT Column 
NEXT Row 
WHERE X.Y 
SYMBOL Array (*) 
MOVE X.Y 

LABEL USING "#.K";" " ! Tell the computer to update the pen position 
ELSE ! (regular character) 

LABEL USING "#,K";Char$ 
END IF ! (this character been redefined?) 
NEXT Char 
SUBEND 



/ 



/ 



Take a slice out 
of the 3D array 
and put it in the 
2D array for 
SYMBOL. 
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Figure 2-18. Implementing User-Defined Characters (Symbol) 

Of course, the limits (twenty UDCs and thirty rows maximum) may be reduced or 
expanded to fit whatever purpose for which you need it. Note that in lines 180 through 
210 of the program, characters 168 through 171 were replaced by the four UDCs. There 
is nothing magical about these four characters. The characters replaced could have been 
any characters between and 255, and they need not be consecutive. 

Also note that in line 450 of the program, there are two spaces after the CHR$(171). This 
is because character 171 was replaced by the box, which was three character cells wide. 
The two extra spaces prevent the right two-thirds of the box from being overwritten by 
whatever is to be labelled after it. 
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Multi-Plane Bit-Mapped Displays 

When using multi-plane (color) bit-mapped displays, BASIC provides the ability to 
specify which planes to write-enable for alpha and graphics and which planes to display. 
This feature provides for several useful features on bit-mapped displays. But before we 
look at the uses, let's look at what these masks are. 

There are four main areas of interest that we'll cover: 

• The graphics write-enable mask, 

• The display-enable mask, 

• The alpha write-enable mask (this is similar in structure and operation to the 
graphics write-enable mask, so little will be said here about it), and 

• Interactions between the alpha masks and graphics masks. 

The Graphics Write-Enable Mask 

First, we'll look at the graphics write-enable mask. As its name (partially) implies, 
its function is to specify which frame buffer planes are to be written to by graphics 
operations. 

For the purposes of illustration, assume that your machine has four planes in the frame 
buffer. Suppose you want to set the graphics write-enable mask such that graphics 
operations use only the first two planes 01 the frame buffer. This is effected by setting 
the first element of an integer array to the value desired, and then executing the GESCAPE 
with operation selector 7: 

INTEGER Graphics_masks(0:0) 

Graphics_masks(0)=IVAL("0011",2) ! Set graphics write mask: planes 1&2 

GESCAPE CRT,7,Graphics_masks(*) ! Set write mask; display mask is unchanged 

If, as in this example, the graphics write-enable mask has the value 0011 (in decimal, 
the value is 3, but the masks will be shown in binary for clarity), this indicates that 
only planes 1 and 2 of the frame buffer will be used for graphics write operations. For 
example, drawing a line can change bits only in planes 1 and 2. 

A graphics write-enable mask of 0011 also implies that there are only four color-map 
"pens" available for use by graphics operations: through 3. 
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The Graphics Display-Enable Mask 

In addition to the graphics write-enable mask, there is a graphics display-enable mask. 
The difference between them is indicated by their respective names: the former specifies 
which planes are actually modified by graphics operations (regardless of whether or 
not they are displayed), and the latter specifies which planes can be seen by the user 
(regardless of whether or not anything has been or can be written to them). 

Suppose you want to set the graphics display-enable mask such that only the contents of 
the first two planes of the frame buffer are visible to the user. This is effected by setting 
the second element of an integer array to the value desired, and then executing GESCAPE 
with operation selector 7: 

INTEGER Graphics_masks(0:l) 

Graphics_masks(0)=< some value> 

Graphics_masks(l)=IVAL("0011" ,2) ! Set display- enable mask: planes 1&2 

GESCAPE CRT,7,Graphics_ma8k8(*) ! Set masks 

Although for many operations, the graphics write-enable mask and the graphics display- 
enable mask will have the same value, they need not be the same. In fact, there are 
many instances where they will be different. In many of these cases, one or both of the 
graphics masks will change regularly as the program executes. 

The Alpha Masks 

The alpha write-enable mask and display-enable mask do the same jobs for the alpha 
display as their graphics counterparts do for the graphics display. 



Note 

When the PLOTTER IS device is the same as the ALPHA crt device, 
the alpha display mask is the graphics display mask. Even though 
they are the same entity, it can be accessed either by GESCAPE CRT , 7 
or CONTROL CRT, 20 (see below). 



To set and read the alpha write-enable mask, use the following statements: 

SET ALPHA MASK IVAL("1100" .2) ! Set alpha WRITE-enable mask: planes 3&4 

STATUS CRT, 18; Alpha. writ emask ! Read alpha WRITE-enable mask 

To set and read the alpha display-enable mask, use the following statements: 

SET DISPLAY MASK IVAL("1100" .2) ! Set alpha DISPLAY -enable mask: planes 3&4 
STATUS CRT,20;Alpha_disp_mask ! Read alpha DISPLAY- enable mask 
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Interactions Between Alpha and Graphics Masks 

The alpha and graphics write-enable masks both default at power-up and SCRATCH 
A to all planes in the machine. Thus (again, assuming you have a four-plane machine), 
both write-enable masks would be 1111. All four planes are at once both alpha planes and 
graphics planes. One implication to this is that when you write graphical information, 
the alpha display may be modified/overwritten, and vice versa. 

Alternately, if you set the alpha write-enable mask to 0011 (alpha uses planes 1 and 2), 
and the graphics display-enable mask to 1000 (graphics uses plane 4), plane 3 is neither 
alpha nor graphics. 

This is a departure from older machine architectures where there was a fixed alpha area 
and a fixed graphics area, and in which "alpha" equals "not graphics" and "graphics" 
equals "not alpha." Now, planes can be "both alpha and graphics" or "neither alpha nor 
graphics," and you can choose where to put them. 

When a plane is designated as both an alpha plane and a graphics plane (default state), 
alpha and graphics share the bit-mapped plane so that writing to the display overwrites 
existing information. A plane designated as a graphics plane only can be written to 
by graphics statements only, such as DRAW, LABEL, but not with alpha statements. 
Similarly, an alpha-only plane can be written to with statements such as PRINT and 
DISP, but not with graphics statements 1 . 

One use of this feature is to simulate separate alpha and graphics planes for compatibility 
with older systems which did not have bit-mapped alpha. Assuming you have a four- 
plane display, you could designate planes 1 through 3 for graphics, and plane 4 for alpha. 
This gives you eight pure graphics colors, and a single alpha color. This gives you some 
of the capabilities of a separate alpha/graphics system on bit-mapped hardware: 

• Turning alpha and graphics on and off independently, 

• Dumping the graphics display or the alpha display independently 2 . 

• Scrolling alpha without scrolling graphics along with it. 



There is also an interaction with the color map setup when executing PLOTTER IS: PENs with bits in 
non-graphics planes are not updated when the color map is initialized. The graphics write-enable mask 
also affects GSTORE and GLOAD; see the BASIC Language Reference for details. 

It has always been the case that you could dump alpha when using bit-mapped displays. However, this 
capability is afforded by the presence of an "alpha buffer," a spare storage place for all alpha information. 
This enables alpha to be dumped to a printer which does not have raster graphics capabilities. 
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There is one tricky condition that may occur if you're not careful. Suppose your program 
has executed ALPHA PEN 1, and at some point it changes the alpha write-enable mask 
to 1100. All of a sudden, the output stops appearing, the run light remains on, and the 
"live" keyboard appears dead. By all appearances, your machine is hung. This is not 
the case, however. 

What actually happened was this. Before the write-enable mask was changed, everything 
was going as expected. When you changed the write-enable mask to 1100, you caused the 
machine to only turn on pixels when using pens whose numbers had some bits in common 
with the write-enable mask, now 1100. The only pens which satisfy this condition are 
pens 4 through 15. In other words, nothing appeared when you were "writing" because 
on one hand you said "write pixels in planes 3 and 4 only," and on the other hand you 
said "I am going to write with a pen which doesn't turn on pixels in planes 3 and 4." 

The following program illustrates the concept of simulating separate alpha and graphics. 
(You can also use the SEPARATE ALPHA FROM GRAPHICS and MERGE ALPHA 
WITH GRAPHICS statements to accomplish these tasks; however, this program shows 
the intermediate steps in how the alpha wnYe-enable and display-enable masks interact). 
The program will write some text which will be visible. Next, it will change the display 
mask so the alpha display mask and the current pen are disjoint. After writing a bit 
more, the program will pause, so you can see just how hung it really looks. When you 
press | continue] fll2] in the System menu of an ITF keyboard) , the alpha display mask 
and the pen will once again come into agreement, and all will be as it should be. 

10 ! This program demonstrates proper and improper use of alpha masks. 

20 ! (Return everything to its default state if the program didn't finish) 

30 SET ALPHA MASK IVAL("1111" ,2) ! Set alpha write-enable mask. 

40 SET DISPLAY MASK IVAL( H 1111" ,2) ! Set alpha display- enable mask. 

50 CLEAR SCREEN 

60 GINIT 

70 PLOTTER IS CRT, "INTERNAL" ; COLOR MAP 

80 ! (Start the demo) 



Set alpha pen 

Set alpha write-enable mask. 

Set alpha display- enable mask. 



90 ALPHA PEN IVAL("0011" ,2) 

100 SET ALPHA MASK IVAL("0011" ,2) 

110 SET DISPLAY MASK IVAL("0011" ,2) 

120 PRINT "I'm printing visibly." 

130 WAIT 4 

140 PRINT "Changing the alpha display mask — this text will vanish." 

150 WAIT 4 

160 SET DISPLAY MASK IVAL("1100" .2) ! Set alpha display-enable mask. 

170 WAIT 4 

180 FOR 1=1 TO 10 

190 PRINT " I'm printing stuff now but you can't see it." 

200 NEXT I 

210 SET DISPLAY MASK IVAL("0011" ,2) ! Set alpha display-enable mask. 
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220 WAIT 1 

230 PRINT "The above text just became visible." 

240 WAIT 4 

250 PRINT "The above text will disappear again and the machine will" 

260 PRINT "appear hung until you press CONTINUE." 

270 PRINT "(Note the run light stays on after the computer pauses.)" 

280 WAIT 9 

290 SET DISPLAY MASK IVAL("1100" ,2) ! Set alpha display-enable mask. 

300 PAUSE 

310 SET DISPLAY MASK IVAL("0011" .2) ! Set alpha display-enable mask. 

320 WAIT 1 

330 PRINT 

340 PRINT "The above text just became visible again." 

350 WAIT 4 

360 SET ALPHA MASK IVAL("1111" .2) ! Set alpha write-enable mask. 

370 SET DISPLAY MASK IVAL("1111" .2) ! Set alpha display- enable mask. 

380 SET ALPHA PEN IVAL("0001" ,2) ! Set alpha pen 

390 PRINT "I just set the alpha masks and pen back to normal." 

400 END 

Another use of the graphics write-enable mask is the fast display of multiple pictures. 
For example, you could: 

1. Disable all planes displayed. This makes the screen blank. 

2. Enable plane 1 for writing. 

3. Create a single-color picture in plane 1. 

4. Enable plane 1 for display. Now the picture in plane 1 appears on the screen. 

5. Disable plane 1 for writing and enable plane 2. 

6. Create a different single-color picture in plane 2. 

7. Disable plane 1 for display and enable plane 2. Now the picture in plane 2 appears 
on the screen. 

Cycling through this sort of a loop — flashing consecutive pictures on the screen — 
simulates a rudimentary animation; i.e., "motion" pictures. Be aware, however, that 
the drawing speed is much too slow to describe smooth, non-jerky movements. 

The selection of graphics planes to be write-enabled and display-enabled is accessed via 
the GESCAPE statement (in the GRAPHX binary). 
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Disabling and Enabling Alpha Scrolling 

Series 300 computers (and Series 200 Model 237 computer) have alpha and graphics 
on the same raster (this is called "bit-mapped alpha"). One of the most important 
implications of this architecture for graphics is that when you scroll alpha information, 
you also scroll graphics. If you want to disable scrolling, of both alpha and graphics, due 
to the cursor-control keys (such as [X] and [7]), you can execute this statement: 

CONTROL KBD,16;1 

If scrolling is currently disabled and you want to re-enable it, execute this statement: 

CONTROL KBD,16;0 

On non-bit-mapped alpha displays, CONTROL KBD 16, 1 will also disable alpha scrolling. 
Because the alpha and graphics are physically separate, however, graphics will never be 
affected by alpha scrolling on non-bit-mapped displays. 
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Preceding chapters described how to generate graphics images on your computer's CRT 
display. In this chapter, we will be discussing the selection of external 1 plotting devices 
which you can use to generate "hard copy" graphics on paper. 

• First we'll show how to dump graphics images from a CRT display to a printer. 

• Then we'll show how to use the PLOTTER IS statement to select HP-IB plotters, 
which may be connected through the built-in HP-IB (Hewlett-Packard Interface 
Bus) port in the back of your computer. This section also describes how to 
use "Hewlett-Packard Graphics Language" (HPGL) commands to talk directly to 
plotters. 

• The next section shows how to send plotting commands to a file. 

• The last part of the chapter describes using SRM plotter spoolers. 



"External" CRT displays, which may be connected to your computer through 98627A or 98700 display 
interfaces, are discussed in the "Color Graphics" chapter. 
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Dumping Raster Images to Printers 

After generating an image on your CRT display, you can print it on paper using a 
printer 1 . This operation is called a graphics dump or a screen dump. It is accomplished 
by copying data from the frame buffer to be reproduced on the printer in dot-for-dot 
fashion. 

First, the image must be generated. Any CRT display may be used. The BASIC system 
"takes a snapshot" of the graphics screen at some point in time, and sends it to a printer. 
BASIC doesn't care how the dots came to be turned on or off. Thus, filled areas can be 
dumped to the printer; indeed, all CRT graphics capabilities (except color 2 ) are available. 

Dumping to HP Raster Interface Standard Devices 

If your printer conforms to the HP Raster Interface Standard 3 , dumping graphics images 
is trivial. For example: 

100 DUMP DEVICE IS 701 
110 DUMP GRAPHICS 

or 
100 DUMP GRAPHICS #701 

Both of these program segments would take the image in the last specified graphics frame 
buffer (the internal CRT display by default) and send it to the printer at address 701. 
(If no source device is specified, the image is taken from the last active CRT or it is 
the default graphics display.) 701 is the default factory setting for printers. You would 
probably use the two-statement version in an application where you wish to specify 
the destination device once, and have it apply to many different DUMP GRAPHICS 
statements. The one-statement version would probably be used where there are few and 
isolated DUMP GRAPHICS statements. 



The subsequent section called "Using SR.M Plotter Spoolers" describes how to dump the raster to an 

SRM spooler. 

Note that you can do a color dump display to a PaintJet L_£i/ using the GDUMP.C utility. For more 
information on this, read the "BASIC Utilities Library" section of the Installing and Maintaining the 
BASIC System manual. 

In order to determine whether or not your printer conforms to this standard, see your printer's manual 
or the Configuraton Reference. 
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Dumping from a Color Display 

When dumping an image from a color display to a printer, the state of each bit sent to 
the dump device is calculated by performing an inclusive OR operation on all color-plane 
bits for each pixel (in other words, a dot is printed if the pen used to write the dot was 
not equal to 0). Thus, no color information is dumped. 

Dumping from a High-Resolution Display 

If the source device is a high-resolution display, the image will not fit on one page of 
most HP printers. In such cases, you should only use the portion of the screen that is 
dumped to the printer. You can see which portion is not used by drawing a grid, for 
instance, and then dumping it to the printer. When you see which part is not displayed 
on the printer, you can change the region of the graphics display (with VIEWPORT, for 
example) so that you do not use that region. 

Using the DUMP GRAPHICS Key 

The | dump graphics 1 key 1 will also dump a graphics display to a printer. If a DUMP 
DEVICE IS statement has not been executed, the dump device is expected to be at 
address 701. 

Aborting Graphics Dumps 

If a DUMP GRAPHICS operation is aborted with the I CLP, I/O I key ( [ Break I on an ITF 
keyboard), the printer may or may not terminate its graphics mode. Sending 192 null 
characters (ASCII code zero) to a printer such as an HP 9876 terminates its graphics 
mode. For example: 

OUTPUT Dump.dev USING "#,K" ; RPT$ (CHR$ (0) , 192) 

To dump a graphics image from an external color monitor which is interfaced through a 
98627A at address 28, you could execute either of the following: 

DUMP DEVICE IS Dump.dev 
DUMP GRAPHICS 28 

or 
DUMP GRAPHICS 28 TO #Dump_dev 



On an ITF keyboard, press [ Shift | with the third-from-the-left unlabeled key above the numeric keypad. 
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Expanded Dumps 

If you want the image to be twice as large in each dimension as the actual screen size, 
you can execute the following two statements: 

100 DUMP DEVICE IS 701, EXPANDED 
110 DUMP GRAPHICS 

This will cause the dumped image to be four times larger than it would be if .EXPANDED 
had not been specified. Each dot is represented by a 2x2 square of dots, and the resulting 
image is rotated 90° to allow more of it to fit on the page. Depending on your screen 
size and printer size, the image being dumped may not entirely fit on the printer. If it 
doesn't, it will be truncated. 

Dumping Displays with Non-Square Pixels 

If you have an HP 98542 A or HP 98543 A display, the pixels are not square. Your images 
are not distorted because of this, however, because the BASIC system compensates for 
the rectangularity. Also, when dumping graphics, the image is not distorted; again, the 
BASIC system compensates for the non-square pixels. 

For machines which have a display with non-square pixels (such as the HP 98542A and the 
HP98543A), a non-expanded DUMP GRAPHICS will produce an image that matches 
the CRT only if no alpha appears in the graphics planes. Since most printers print square 
pixels, this routine treats graphics pixel pairs as single elements and prints one square for 
each pixel pair in the frame buffer. Because alpha works with individual pixels, and not 
with pixel pairs, mixed alpha and graphics will appear blurred on a DUMP GRAPHICS 
non-expanded output. Using the EXPANDED option causes the vertical length (the 
height on the CRT) to be doubled as before, but dumps each separate pixel. In this 
mode, mixed alpha and graphics will appear the same on the dump as on the CRT. 

Note that on multiplane bit-mapped displays, only graphics write-enabled planes are 
dumped. 
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Dumping to Non-Standard Printers 

If you have a printer which does not conform to the HP Raster Interface Standard, all is 
not lost. It must, however, be capable of printing raster-image bit patterns. There are 
two main methods by which printers print bit-sequences. 

• The first is when a printer receives a series of bits, it prints them in a one-pixel-high 
line across the screen. The paper then advances one pixel's distance, and the next 
line is printed. 

• The other method (which lends itself to user-defined characters more than graphics 
image dumping) takes a series of bits, breaks it up into 8-bit chunks, and prints 
them as vertical bars 8 pixels high and one pixel wide. The next eight bits compose 
the next lx 8-pixel bar, and so forth. 

Example of Dumping to an HP 82905A Printer 

This latter method listed above is that used by the HP 82905A printer. The image (which 
is printed out sideways) takes a GSTOREd image and breaks the 16-bit integers into two 
8-bit bytes, and sends them to the printer one row at a time. This is the reason for the 
Hi$ and Lo$, the high-order (left) and low-order (right) bytes of the current integer. The 
following subprogram performs the function of a DUMP GRAPHICS statement from a 
medium-resolution display to an HP82905A printer: 

10 Dump.graphics : SUB Dump_graphics (OPTIONAL Dev_selector_) 
20 OPTION BASE 1 ! Arrays start at 1 

30 INTEGER Y.pixels. Row, Column, Element , Char, Return. array (6) ! Speed it up... 



40 DIM Pad$[45] 

50 IF NPAR=1 THEN 

60 Dev_selector=Dev_selector_ 

70 ELSE 

80 Dev_selector=701 

90 END IF 



Padding for centering 

Is output device specified? 

If so, use it. 

Otherwise , 

Default to 701 



Get the screen size 
Width of screen (in words) 
Height of screen (in pixels) 
High- and low-order bytes 



100 GESCAPE CRT,3;Return_array(*) 

1 10 Words_per_row=Return_array (5) 

120 Y_pixels=Return_array(6) 

130 ALLOCATE Hi$ [Y.pixels] , Lo$ [Y.pixels] 

140 ALLOCATE INTEGER Screen (Y_pixels,Words_per_row) ! Screen array 

150 Pad$=RPT$(CHR$(0),45) ! 45 nulls centers the image 

160 GST0RE Screen (*) ! Store the picture 

170 Esc$=CHR$(27)&"K"&CHR$((Y_pixels+45) MOD 256)&CHR$((Y_pixels+45) DIV 256) 

180 OUTPUT Dev.selector USING "K" ;CHR$(27)&"A"ftCHR$(8) ! 1 line=8/72 inch 



190 FOR Column=l TO Words_per_row 

200 FOR Row=Y_pixels TO 1 STEP -1 

210 El ement=Screen (Row, Column) 

220 Char=Y_pixels-Row+l 

230 Hi$ [Char] =CHR$ (INT (Element/256) ) 

240 Lo$ [Char] =CHR$ (Element MOD 256) 

250 NEXT Row 



For every 16-bit swath across . . . 
and for every pixel down. . . 
get appropriate array element, 
determine the string subscript, 
fill up the high-order byte. . . 
and the low-order byte. 



Using Printers and Plotters 3-5 



260 OUTPUT Dev.selector USING "K" ;Esc$&Pad$&Hi$ 

270 OUTPUT Dev.selector USING "K" ;Esc$&Pad$&Lo$ 

280 NEXT Column 

290 OUTPUT Dev.selector USING "K" ;CHR$(27)&"A"&CHR$(12) ! 1 line=12/72 inch 

300 SUBEND 

To DUMP GRAPHICS to other types of printers, modify the preceding subprogram 
appropriately for the destination device. See your printer's manual for information about 
its "raster-image" mode. 

Negative Images 

Note that on a CRT, an "on" pixel is light on an otherwise dark background, and on a 
printer, an "on" pixel is dark on an otherwise light background. Thus, the hard copy 
is a negative image of that on the screen. To dump light images on a dark background, 
you can invert every bit in the stored image. You can use the BINCMP function to 
complement the bits in every word before you send the image to the printer, or you can 
invert the bits of an integer by using this program segment: 

IF N=-32768 THEN 

N=32767 
ELSE 

N=-N-l 
END IF 

The reason for the subtraction is that Series 200/300 computers use two's-complement 
representation of integers. Also, you must consider —32 768 as a special case because 
you cannot negate —32 768 in an integer; +32 768 cannot be represented in a signed, 
sixteen-bit, two's-complement number. 
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Using Plotters 

In Chapter 1, the program listings contained a line which said: 

PLOTTER IS CRT, "INTERNAL" 

This caused the computer to activate the internal CRT graphics raster as the plotting 
device, and thus all subsequent commands were directed to the screen. 

Selecting a Plotter 

If you want a plotter to be the output device, only the PLOTTER IS statement needs 
to be changed. If your plotter is at interface select code 7 and address 5 (the factory 
settings), the modified statement would be: 

PLOTTER IS 705,"HPGL" 

"HPGL" stands for Hewlett-Packard Graphics Language, and it is the low-level language 
which the plotters actually speak behind the scenes. Specifying "HPGL" tells BASIC to 
generate HPGL commands when it executes graphics statements, and to send them to 
the current plotting device. We'll take a look at HPGL in subsequent sections. 

Plotter Graphics with HPGL Commands 

When you are executing BASIC graphics statements and they are doing operations 
on a HP plotter, there is nothing preventing you from interspersing your own HPGL 
commands between the BASIC commands. HPGL commands can be sent to the device 
with OUTPUT statements; however, the preferred way is to use the GSEND statement. 

PLOTTER IS 705. "HPGL" 

FRAME 

GSEND "HPGL command(s) n 

MOVE X.Y 

GSEND "HPGL command(s)" 

DRAW X+10.Y-20 

HPGL command sequences are terminated by a line-feed, a semicolon, or an EOI 
indication, which is sent by the HP-IB (Hewlett-Packard Interface Bus) END keyword. 
Individual commands within a sequence are typically delimited by semicolons. Note that 
the GSEND command sends a carriage return/line feed after the specified string. 
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There are many HPGL commands available, but the exact ones you will be able to use 
depend on the device itself. Plotters are not the only devices which use HPGL; some 
digitizers and graphics tablets do also. By their nature, however, they use a different 
subset of commands than plotters do. Following are a few of the more common or useful 
HPGL commands. 

Example of Using HPGL: Controlling Pen Speed 

If your plotter pens are getting old and tired, you probably would want to make them 
draw more slowly to get a better quality line. (In actuality, there are other factors which 
can affect line quality. For example, humidity can alter the line quality of a fiber-tipped 
pen.) To accomplish this, you could have a statement: 

GSEND "VS10;" 

"VS" stands for " Velocity Select" and the "10" specifies centimeters per second. Thus, 
this statement would tell the plotter to draw at a maximum speed of ten centimeters 
per second. It specifies a maximum speed rather than an only speed, because on short 
line segments, the pen does not have time to accelerate to the specified speed before the 
midpoint of the line segment is reached and deceleration must begin. The range and 
resolution of pen speeds, and default maximum speed depend on the plotter. 

Example of Using HPGL: Controlling Pen Force 

On the HP 7580 and HP7585 drafting plotters, you can specify the amount of force 
pressing the pen tip to the drawing medium. This is useful when matching a pen type 
(ball-point, fiber-tip, drafting pens, etc.) to a drawing medium (paper, vellum, or mylar, 
etc.). Again, if a pen is partially dried out, it may help line quality to adjust the pen 
force. 

An example statement is: 

GSEND "FS3.6;" 

This statement (Force Select) would specify that pen number 6 should be pressed onto 
the drawing medium with force number 3. As you can see, the force specifier occurs first, 
the pen number second. The reason for this is that if you do not specify a pen number, 
all pens will be affected. 
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The force number is translated into a force in grams. If, for example, you have an 
HP 7580A plotter, the force number is converted to force as follows: 

1 = 10 grams 5 = 42 grams 

2 = 18 grams 6 = 50 grams 

3 = 26 grams 7 = 58 grams 

4 = 34 grams 8 = 66 grams 

Example of Using HPGL: Selecting Character Sets 

Some plotters contains internal character sets which may be much more pleasing to 
the eye or more appropriate for your application than the character set provided by the 
BASIC operating system. Through HPGL, you can tell the plotter to use these character 

sets. 

GSEND "CS1;" 

tells the plotter to use Character Set 1 until further notice. This means, however, that 
to actually get these characters, you cannot use the LABEL statement in BASIC. This 
is because the BASIC graphics system generates all its characters as a series of line 
segments, and the plotter can't tell when it is told to draw a line segment whether it is 
going to be part of a character or not. Thus, you must use the HPGL label command, 
LB: 

GSEND "LBThis is an example string. n fcCHR$(3)fc" ; " 

CHR$(3) is the End-of-Text, or ETX, control character. It is the default terminator for 
the LB command. If you wish, you can specify other characters to signal the end of a 
line of text to label. You use the .Define Terminator command: 

GSEND "DT&;" 

This statement instructs the plotter to consider the ampersand to be the terminator. 
Thus, every LB command must have an ampersand as the final character. 
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NOTE 

When using a printable ASCII character as the terminator, it will 
be labelled in addition to terminating the LB command. 



NOTE 

There must be a terminator as the final character in the string to 
indicate the end of the text, or all subsequent commands will be 
considered text and not commands; that is, they will merely be 
labelled, not executed. 



Error Detection when Using HPGL Commands 

When using HPGL commands, there is always a possibility of making an error. When this 
occurs, the program should be able to respond in a friendly way, and not just hang then 
and there. With HPGL, it is possible to interrogate the plotting device and determine 
the problem. The following statements in an error-trapping routine would determine the 
type of error that occurred: 

GSEND "OE;" 
ENTER 705; Error 

After these two statements have executed, the variable Error will contain the number 
of the most recent error. What the error code means depends on the particular device 
being used. 

This is not by any means an exhaustive list of HPGL commands, but it serves to acquaint 
you with the concept of using the HPGL language, and the amount of control it gives you 
over the peripheral device. A thorough understanding of HPGL can only be obtained by 
combining information from the owner's manual of the particular device you have with 
actual hands-on experience. 
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Plotting to Files 

The preceding PLOTTER IS statements in this chapter were used to direct HPGL 
commands to a plotter. You can also direct these commands to a file. This is useful when 
you want to check what is being sent to a plotter, or when you want to generate a special 
sequence of HPGL commands that you cannot generate with BASIC graphics statements; 

t4- to olct^v -iio^\4\il titV*/m^ nomrf f\rt GT)A4 T-\l/~fc4-4-#^*» o-r^/-v^\l/M* np /^ict^iincirt^ im n cin Vvrt*\^>m £\tr\^- c*r\r*l-\ rim 
iU lO CUOU LlOCIUl VV 11^11 lAOlUg CUX kJXt/i.VX ^AlWljUd OJJUU1C1] (U UiOLUOOCU ill a OUUOCVjUClll OC^IjUJII. 

The following statement would cause subsequent plotter output (HPGL commands) to 
go to a file named Plot. 

CREATE BDAT "Plot : ,700" ,20 

PLOTTER IS "Plot: .700"; "HPGL" 

FRAME 

MOVE 0,0 

DRAW 100.100 

MOVE 0,100 

DRAW 100,0 

MOVE 50,50 

CSIZE 15 

LABEL "Big X" 

PLOTTER IS CRT, "INTERNAL" 

Plot must be a BDAT file. Another PLOTTER IS statement, SCRATCH A, or GINIT 
statement closes the file. A Reset also closes the file. 

Plotter Paper Sizes 

The PLOTTER IS statement also provides you with the capability of specifying a non- 
default paper size. Here is the general syntax you can use; just substitute the limits (in 
millimetres) for the four parameters: 

PLOTTER IS "File" , "HPGL" , Xmin, Xmax, Ymin, Ymax 

See the BASIC Language Reference and your plotter's manual for additional information. 
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Limitations 

If you are performing an operation on one plotting device, and attempt to send the plot 
to another device which does not support that operation, it won't work. 

For example: area fills, which are valid operations on most displays, are not available on 
plotters. Color map operations, which are valid on displays, are not valid on a plotter. 
Erasing lines can be done on displays, but, naturally, not on a hard-copy plotter. On the 
other hand, HPGL commands will be interpreted correctly by a hard-copy plotter, but 
not by a display. 

Using GSEND with PLOTTER IS Files 

This statement sends a string of characters to the current PLOTTER IS device, which 
may be a file or a plotter. 

GSEND "LBThis is an example HPGL command string. "&CHR$(3)&" ; " 

The string is to contain Hewlett-Packard Graphics Language (HPGL) command(s). 
GSEND is useful when the PLOTTER IS device is a file, since it is not possible to 
OUTPUT an HPGL command to the file while it is the PLOTTER IS device. 

CREATE BDAT "Plot : .700" ,20 

PLOTTER IS "Plot : .700" ; "HPGL" 

FRAME 

MOVE 0.0 

DRAW 100.100 

MOVE 0.100 

DRAW 100.0 

MOVE 20,20 

GSEND "CS2;" 

GSEND "LBThis is X in the plotter's character set 2. "fcCHR$(3)&" ; " 

PLOTTER IS CRT, "INTERNAL" 

Note that HPGL syntax is not checked by the BASIC system. Therefore, you will need 
to take extra care when using HPGL commands in this manner. 
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Using SRM Plotter Spoolers 



The SRM system not only provides shared access to plotters, but also manages their use 
so that workstations never need to wait for output to be generated. 

What Are Spoolers? 

To use shared plotters, you place files to be output into a special directory where they 
are held until the plotter is free. This method is called "spooling," and the directory 
where the files are kept is called the "spooler directory." After a file is placed in a spooler 
directory, the workstation is free to do other processing. 

Setting Up a Plotter Spooler 

Spooler directories are created for the SRM server's use when the shared peripherals 
are installed on the SRM system. Setting up a spooler directory is explained in the 
"Interfaces and Peripherals" chapter of the SRM System Manager 's Guide. The examples 
in this section assume that a spooler directory named PL (for "PLotter" ) has already been 
created in the SRM root directory. 

Preparing Plotters 

If your plotter does not feed its paper automatically, a message appears on the SRM 
server's screen indicating that the plotter needs to be set up. After you have put paper 
on the plotter, you may begin the plotting by using the server's SPOOL CONTINUE 
command (described in the SRM System Manager's Guide). Plotters with automatic 
paper feed require no operator intervention. 
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Plotter Spooling 

These are the steps in using the SRM plotter spooler: 

1. Create a file. 

2. Specify it as the PLOTTER IS device. 

3. Perform BASIC or HPGL plotting operations. 

4. When finished, close the file and if it is not already there COPY or RENAME it 
into the spooler directory. 

5. Wait for the file to be output to the plotter. 

Example of Plotting to a File 

You can use the PLOTTER IS statement to send data to a file, which you can later send 
to an SRM plotter. The following command sequence illustrates this spooling method: 

CREATE BDAT "/PL/Plot_f ile" , 1 

PLOTTER IS "/PL/Plot_file" 

FRAME 

MOVE 0,0 

DRAW 100,100 

MOVE 0,100 

DRAW 100,0 

GSEND "CS2;" 

GSEND "LBThis is X in the plotter's character set 2. "&CHR$(3)&" ; " 

PLOTTER IS CRT, "INTERNAL" 

PLOTTER IS works only with BDAT files. Because the SRM 1.0 operating system's 
spooling works only with ASCII files, you cannot use PLOTTER IS for plotter spooling 
with that version of SRM. 



Note 

The DUMP DEVICE IS statement does not support directing data 
to files as shown above, so it cannot be used for plotter spooling. 
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Checking the Spooler's Status 

The SRM spooler waits until the file is non-empty and closed before sending its contents 
to the output device. If your file is not plotted within a reasonable amount of time, you 
may not have closed it. You can verify that your file is ready to be plotted by cataloging 
the spooler directory: 



CAT "/PL" [ Return | or [ ENTER | 

The open status (OPEN STAT) of the file currently being printed or plotted is listed as 
locked (LOCK). Files currently being written to the spooler directory are listed as OPEN. 
Files that do not have a status word in the catalog are ready for plotting. 

Version 2.0 (and later versions) of the SRM operating system allow BDAT files to be 
sent to the printing device as a byte stream. (With SRM version 1.0, only ASCII files 
can be used.) 

Aborting Plotting In Progress 

To abort an in-progress plotting, use the SPOOL ABORT command from the SRM 
server. The system stops sending data to the output device and closes, then purges 
the file. For details on bringing the spooler UP and DOWN, see the description of the 
SPOOLER command in the "Language Reference" section of the SRM System Manager 's 
Guide. 

With the SRM 2.0 operating system, if a plotter is taken off-line while a file is being 
spooled, the spooler stops and resumes when the plotter is put back on-line. No data is 
lost during such an interruption. The SRM 1.0 operating system also resumes plotting, 
but from the beginning of the file. 

Dumping Graphics to a Printer Spooler 

This program shows an example of using GSTORE to capture the pixels on a graphics 
raster, which is then sent to an SRM printer spooler file. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 



Program to DUMP GRAPHICS to an SRM plotter spooler. 

Works with 2608A/S, 2631G, 293x, 2563A. and other printers. 

Parameters will vary for different graphics raster sizes. 
Picture (*) is: 300x25 for 9816 ft 9826 (300*400 pixels) 
390x32 for 9836 (390*512 pixels) 

Buffer. (*) is: 1:8704 for 9816 ft 9826 
1:14044 for 9836 

Rowlength = 25 for 9816 ft 9826 
32 for 9836 
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Rows = 300 for 9816 k 9826 
390 for 9836 



220 

230 

240 

250 

260 INTEGER Picture (1:300, 1:25), Buffer. (1:8704) ! For 9816 k 9826. 

270 INTEGER Bufptr . Word. , Row. . Rows, Rowlength.Bytel ,Byte2, Temp 

280 Rowlength=25 

290 Row8=300 

300 ! 

310 

. Draw picture on display raster (using BASIC graphics) . 



Generate "escape" sequences for graphics mode. 

"Esc*" 

"rA" 



400 GSTORE Picture (*) 

410 

420 Buffer. (1) =6954 

430 Buffer. (2) =29249 

440 Bufptr=3 

450 Temp=Rowlength+Rowlength 

460 Bytel=NUM("b")*256+((Temp DIV 10) +48) 

470 Byte2=((Temp MOD 10)+48)*256+NUM("W") 

480 ! 

490 FOR Row_=l TO Rows 

500 ! Identify number of bytes for this line. 

510 Buffer. (Bufptr) =6954 ! "Esc*" 

520 Buffer_(Bufptr+l)=Bytel ! "bn" 

530 Buffer_(Bufptr+2)=Byte2 ! "nW" 

540 Bufptr=Bufptr+3 

550 FOR Word_=l TO Rowlength 

560 Buffer. (Bufptr) =Picture (Row.. Word.) 

570 Bufptr=Bufptr+l 

580 NEXT Word. 

590 NEXT Row. 

600 ! Terminate graphics mode. 

610 Buffer. (Bufptr) =6954 ! "Esc*" 

620 Buffer(Bufptr+l)=29250 ! "rB" 

630 ! 

640 ! Store Picture in spooler directory, so that it will be printed. 

650 CREATE BDAT "/LP/PICTURE" , 1 

660 ASSIGN CDump TO "/LP/PICTURE" 

670 OUTPUT CDump; Buffer. (*) 

680 ASSIGN CDump TO * 

690 ! 

700 END 
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Introduction 

It has already been pointed out that graphics is a very powerful tool for communication. 
The high speed of graphics operations on Series 200/300 computer makes possible a 
powerful mechanism for communicating with the computer: Interactive Graphics. 

An Example 

One way to understand interactive graphics is to see it in action. If your computer 
has a knob or mouse, LOAD and RUN the program "BAR_KNOB" , from your Manual 
Examples disc. 

If you turn the knob clockwise, the bar graph displayed on the screen will indicate a 
larger value. At the same time, the numeric readout underneath the bar will increase 
it's value. Turning the knob counterclockwise has the opposite effect. This is an effective 
demonstration of all the key characteristics of an interactive graphics system. 

Elements of an Interactive Graphics System 

The elements of this type of graphics system are as follows: 

• A graphic display that represents the contents of the data structure. 

• An input mechanism for interacting with the displayed image (the knob or mouse, 

in this case.) 

• A data structure. (The value displayed underneath the bar is the contents of 
a variable that we are modifying. The BASIC variable containing the value is 
considered a degenerate case of a data structure.) 

This is the minimum set of requirements for an interactive graphics system. A key feature 
of interactive graphics is that it is a closed loop system. This means that the operator 
can immediately see the effect of his action on the system, and thus base his next action 
not only on the state of the system, but also on the effect his last action had on the 
system. A few points are worth noting about this system: 

• The knob or mouse is used because it is functionally appropriate. While we could 
have used softkeys, a tablet or mouse, or entered numeric values to control the bar 
graph, the knob "feels" right. We are used to using knobs to control bar graph 
metered readouts. 
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• Control of the value with the knob is fairly intuitive. The normal range markings 
make it readily apparent when the value is in range. Little explanation is needed, 
due to the immediate feedback from the displayed image. 

• A system is "modeled." The user's input must have a well defined relation to 
the output of the system. This relation, or rule, should be easy to learn (via 
experimentation and immediate feedback). 

Thus, interactive graphics can be as simple as representing a single value on the screen 
and providing the user a method for interacting with it. It can also be as complex as 
a Printed Circuit layout system. This chapter will not tell you how to build a Printed 
Circuit layout system, but it will provide some hints on implementing interactive graphics 
systems that work. 



Characterizing Graphic Interactivity 

One of the most important things in designing a good interactive graphics system is 
characterizing the interaction with the system correctly. Properly characterizing the 
interactivity allows selection of the most appropriate device for interaction with the 
system. Three things have to be considered in characterizing the interaction: 

• The number of degrees of freedom in the system. This is the number of ways in 
which a system can be changed. 

• The quality of each of the degrees of freedom. This describes how the input to a 
degree of freedom can be changed. 

• The separability of the degrees of freedom. 

The BAR.KNOB program has limitations in these regards. Read on to see why. 



4-2 Interactive Graphics and Graphics Input 



Selecting Input Devices 

The purpose of the discussion on characterization of graphic interaction was to lay the 
groundwork for discussing when various input devices are appropriate. There are several 
available computers, and choosing the correct one is critical to the design of a highly 
productive human interface for an interactive graphics program. 

Single Degree of Freedom 

Many interactive graphics programs need deal only with a single degree of freedom. The 
appropriate control device for such programs depends on whether continuous control or 
quantizable control is needed. 

The program "BAR.KNOB" is a good example of a single degree of freedom that is 
continuous. The knob is ideal for controlling a program like this. If "fine tuning" is 
needed, the shift key can be used as a multiplier to change the interpretation of the 
knob. It is also possible to use the softkeys for fine tuning. 

Softkeys can be used for quantizable control of a degree of freedom. It is also possible 
to use keyboard entry of numeric values for quantizable information. Remember that 
sofkey labels range from QT] through [W\ on some keyboards, and from | k0| through 
[ k9| on others. Also, if you have an ITF keyboard which provides different menus for 
the System menu and User 1 through 3 menus, then the SYSTEM KEYS and USER n 
KEYS statements enable you to switch from one menu to another. For example, USER 1 
KEYS displays the menu for User 1 softkeys, and SYSTEM KEYS displays the System softkeys 
menu. Use a 2 or 3 for User 2 or User 3 menus. 

Non-Separable Degrees of Freedom 

One characteristic of multiple, non-separable degrees of freedom is that they are generally 
continuous. The most common operation of this type is free-hand drawing. This is most 
easily accomplished with a graphics tablet. 
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Separable Degrees Of Freedom 

In many programs, the degrees of freedom are completely separable. In fact, for some 
operations, it is definitely preferable to have totally independent control of the degrees 
of freedom of the model. 

All Continuous 

If all the degrees are continuous, a good choice is using the softkeys to select the degree 
of freedom and then using the knob to control the input to that degree of freedom. An 
even better choice is to use an HP 46085 Control Dial Box, which has nine knobs. See 
the "CDials" program on the Manual Examples disc. 

All Quantizable 

If all the degrees are quantizable, using softkeys is ideal. 

Mixed Modes 

In most sophisticated graphics systems, several degrees of freedom in the system interact 
with each other. A good example is a graphics editor. In a graphics editor, your primary 
interaction is with a visual image, and the degrees of freedom (X and Y location) for 
that operation are partially separable, at best. (They are non-separable if it supports 
freehand drawing.) There is also a degree of freedom involved in controlling the program. 
The program control is strongly separable from the image creation operation. 

The most appropriate device for supporting mixed modes is a graphics tablet. The 
HP 9111 A tablet supports two modes of interaction by partitioning the digitizing surface 
into two areas. Sixteen small squares along the top of the tablet are used as softkeys to 
provide a control menu. The large, framed area underneath the softkeys is the active 
digitizing area. The active digitizing area is used for interacting with the image you are 
creating. Some HP-HIL tablets (such as the HP 46087A and HP 46088A) use a 4-button 
stylus, or "puck," which has physical buttons on the cursor device. 

It is possible to combine the quantized, separable control operations with continuous, 
non-separable image editing. This is done by using the active digitizing area for 
interacting with the image and using the menu area for controlling the operations 
available in the editing program. The operator does not have to change control devices 
to access the different interaction modes. 
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Echoes 

An important part of interactive graphics is letting the operator know "where he is at." 
This can be done by updating the image (as in "BAR.KNOB".) In other operations — 
such as menu selection, object positioning, and freehand drawing — it is important to 
show the operator where he is. In many cases, this can be done with the SET ECHO 
statement. 

The Built In Echo 

Many graphics applications can be handled using the built in echo. Executing 
TRACK... IS ON sets up the system to track the graphics input device with the built in 
echo during a DIGITIZE. The following program shows how to do single-point digitizing 
with the built in echo. 



100 


GINIT 


! Restore defaults 


110 


GRAPHICS INPUT IS 706, ,, HPGL ,, 


! 9111 is input 


120 


PLOTTER IS CRT. "INTERNAL" 


! (Redundant) 


130 


TRACK CRT IS ON 


! Enable tracking 


140 


I 




150 


GRAPHICS ON 




160 


VIEWPORT 0,133.0,100 


! Match aspect rat 


170 


WINDOW .50,50. .20.20 


! Define GDUs 


180 


FRAME 


! Draw bounds 


190 


AXES 10.10.0,0,5.5 


! Draw axes 


200 


MOVE 0.0 


! Begin at origin 


210 




> 


220 






230 


Track: DIGITIZE X.Y,Status$ 


! Request coords 


240 


! updating cursor until coords 


received 


250 


! 




260 


DRAW X,Y 


! Connect points 


270 


i 




280 


GOTO Track 




290 


i 




300 


END 





The TRACK.. IS ON statement merely enables the tracking feature; the actual tracking 
is performed while the DIGITIZE statement is being executed. The locator is "tracked" 
by moving the output device's "cross-hair" (or pen) correspondingly. Notice that the 
definition of the DIGITIZE statement has been modified slightly — now its execution 
causes the locator to be tracked and "echoed" on the output device until the stylus (or 
Digitize button) is pressed. 
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After the stylus is pressed, the DIGITIZE statement has finished execution and the 
DRAW statement is executed. This program draws lines between the digitized points, 
but you may want to change this response as desired with the appropriate software. 

If accuracy is not exceptionally important, you can do continuous digitizing with the 
READ LOCATOR statement. 

This program, as it stands, will only work with an HP 9111 graphics tablet at address 
706. If you wish to use a mouse or an HP-HIL tablet, change the GRAPHICS INPUT 
IS statement to : 

GRAPHICS INPUT IS KBD,"KBD" (for HP-HIL Mouse) 

or 
GRAPHICS INPUT IS KBD, "TABLET" (for HP-HIL Tablet) 

The following program continuously tracks the input locator and monitors the 
pressed/not-pressed status of the Digitize button (or stylus). The cursor position is 
continuously echoed on the output device, and lines are drawn if the Digitize button (or 
stylus point) is pressed. 



100 


GINIT 


! Restore defaults 


110 


GRAPHICS INPUT IS 706,"HPGL" 


! Define input 


120 


PLOTTER IS CRT, "INTERNAL" 


! Define output 


130 


GRAPHICS ON 




140 


VIEWPORT 0,133,0,100 


! Match aspect ratios 


150 


WINDOW 0,100,1,100 ! 


Define UDUs 


160 


FRAME 


! Draw limits 


170 


i 




180 


LOOP 




190 


READ LOCATOR X.Y,Status$ 




200 


SET ECHO X,Y 




210 


Button$=Status$ [1 , 1] 




220 


GOSUB Action 




230 


END LOOP 




240 


I 




250 


Action: IF Button$="0" THEN MOVE X,Y 




260 


IF Button$="l" THEN DRAW X.Y 




270 


RETURN 




280 


! 




290 


END 
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Making Your Own Echoes 

In some applications, the cross-hair generated by SET ECHO is not sufficient. You may 
want to generate a rubber band line or box. A rubber band line is stretched from an 
anchor point to the echo position. In these cases, it is necessary to draw your own echo. 

Since an echo needs to be repositioned as the operator interacts with it, it must be 
constantly drawn and redrawn. If it is just drawn and then erased, the background 
it is drawn over will soon become littered with erased images of the echo. What we 
really want to do is find a way to draw it and then "undraw" it, rather than erasing 
it. The complementary drawing mode is used to do this. In the complimentary drawing 
mode, the bits specified by the current pen selector are complimented in the frame buffer, 
rather than just overwriting the contents. If a second complimenting is done, the image 
is restored to whatever was there before the echo was written to it. The echo generated 
by SET ECHO is automatically drawn in the complimentary mode. 

It is important to remove any echo you have drawn on the screen before updating the 
image. The complimenting of a bit pattern does not restore the image if the image was 
altered between the complimentary drawing and undrawing. This is done automatically 
by SET ECHO, but you must handle it yourself if you are building your own echoes. 
The following loop will support a tablet with several different echoes, when used with 
the echo routines discussed below. 

570 LOOP ! Main Tracking Loop 

580 READ LOCATOR Xin.Yin 

590 DISABLE 

600 CALL Make_echo(Xin,Yin,Echo_type) ! Several Echo Types 

610 ENABLE 

620 END LOOP 

Two sets of echo routines are provided, one set for monochrome and one set for color 
systems. Both a Kill.echo and a Set.echo routine are provided for each case. 
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Monochrome Echoes 

The complementary drawing mode can be accessed for making your own echo by selecting 
PEN 0. The subroutines which follow are used to implement rubber band line and rubber 
band box echoes. Be aware that the subroutines would be a part of some greater program 
that you create. The intent is to demonstrate techniques. 

2920 Kill_echo:SUB Kill_echo 

2930 ! *************************************************************** 

2940 ! * * 

2950 ! * This routine gets rid of whatever echo is left over on the * 
2960 !* screen. * 

2970 ! * * 

2980 J****************************************:):********************** 

2990 ! 

3000 COM /Echo_local/ Last_x,Last_y,Last_anchor_x.Last_anchor_y 

3010 COM /Echo_local2/ Last_pen,Last_echo_type 

3020 COM /Echo_global/ Echo.drawn, Anchor _x,Anchor_y 

3030 COM /Booleans/ INTEGER True, False 

3040 COM /Modals/ INTEGER Drawmode, Normal. Complement .Current _pen, 

Current _f ill 

3050 COM /Echo.globall/ Rubber.line, Cross. Rubber.box 

3060 ! 

3070 PEN 

3080 SELECT Last_echo_type 

3090 CASE Rubber.line 

3100 MOVE Last .anchor _x,Last_anchor_y 

3110 DRAW Last _x. Last _y 

3120 CASE Rubber.box 

3130 MOVE Last_anchor_x,Last_anchor_y 

3140 RECTANGLE Last_x-Last_anchor_x.Last_y-Last_anchor_y 

3150 CASE ELSE 

3160 END SELECT 

3170 Echo_drawn=False 

3180 PEN 1 

3190 SUBEND 

3200 ! 

3210 Make.echo : SUB Make_echo(X.Y.Echo_type) 

3220 ! ******************************************************************* 

3230 ! * * 

3240 !* This routine makes the an echo of the current Echo_type at the * 

3250 !* specified (X.Y) location. It also updates the variables for * 

3260 !* the Kill.Echo Subprogram. * 

3270 ! * * 

3280 |*************************************************************** 

3290 ! 

3300 COM /Echo_local/ Last_x,Last_y,La8t_anchor_x,Last_anchor_y 

3310 COM /Echo_local2/ Last_pen.Last_echo_type 

3320 COM /Echo_global/ Echo_drawn , Anchor _x . Anchor_y 

3330 COM /Booleans/ INTEGER True, False 
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3340 COM /Modals/ INTEGER Drawmode, Normal, Complement .Current _pen. 

Current_fj.il 

3350 COM /Echo_globall/ Rubber.line, Cross, Rubber.box 

3360 COM /Bounds/ Max_clip_y 

3370 ! 

3380 IF Echo.drawn THEN CALL Kill.echo 

3390 IF Y<Max_clip_y THEN 

3400 PEN 

34 iO SELECT Echo.type 

3420 CASE Rubber.line 

3430 MOVE Anchor _x,Anchor_y 

3440 DRAW X,Y 

3450 CASE Rubber_box 

3460 MOVE Anchor_x,Anchor_y 

3470 RECTANGLE X- Anchor.x , Y- Anchor.y 

3480 CASE ELSE 

3490 END SELECT 

3500 SET ECHO X.Y 

3510 Last_x=X 

3520 Last_y=Y 

3530 Echo_drawn=True 

3540 END IF 

3550 SET ECHO X,Y 

3560 Last_echo_type=Echo_type 

3570 Last_anchor_x=Anchor_x 

3580 Last_anchor_y=Anchor_y 

3590 PEN 1 

3600 SUBEND 
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Color Echoes 

Accessing the complementary drawing mode is slightly different in color. The complimen- 
tary drawing mode can be accessed for making your own echo by specifying a negative 
pen number after a GESCAPE to select the non-dominant writing mode (operation se- 
lector of 5). The subroutines are used to implement rubber band lines, and have hooks in 
place for rubber band boxes. Complement has been initialized to 5, and Drawmode contains 
the current drawing mode. Again, remember to study the subroutine listing to examine 
programming techniques. 

9900 Kill_echo:SUB Kill_echo 

9910 ! ****************************************************************** 

9920 ! * * 

9930 !* This routine gets rid of whatever echo is left over on the * 

9940 !* screen. * 

9950 ! * * 

9960 ! ****************************************************************** 

9970 ! 

9980 COM /Echo.local/ Last_x , Last_y , Last_anchor_x , Last_anchor_y 

9990 COM /Echo_local2/ Last.pen , Last_echo_type 

10000 COM /Echo_global/ Echo.drawn , Anchor _x , Anchor.y 

10010 COM /Booleans/ INTEGER True, False 

10020 COM /Modals/ INTEGER Drawmode, Normal, Complement .Current .pen, 

Current.fill 

100,30 COM /Echo.globall/ Rubber.line, Cross, Rubber_box 

10040 ! 

10050 GESCAPE 3, Complement 

10060 IF Last.penOO THEN 

10070 PEN -Last.pen 

10080 ELSE 

10090 PEN -1 

10100 END IF 

10110 SELECT La8t_echo_type 

10120 CASE Rubber.line 

10130 MOVE Last.anchor.x , Last.anchor.y 

10140 DRAW Last.x.Last.y 

10150 CASE ELSE 

10160 END SELECT 

10170 GESCAPE 3, Drawmode 

10180 PEN Current.pen 

10190 Echo_drawn=False 

10200 SUBEND 

10210 ! 

10220 Make.echo : SUB Make_echo(X.Y,Echo_type) 

10230 J******************************************************************** 

10240 ! * * 

10250 !* This routine makes the an echo of the current Echo.type at the * 

10260 !* specified (X,Y) location. It also updates the variables for * 

10270 !* the Kill .Echo Subprogram. * 

10280 ! * * 



4-10 Interactive Graphics and Graphics Input 



10290 ! ******************************************************************** 

10300 ! 

10310 COM /Echo_local/ Last _x,Last_y, Last .anchor _x.Last_anchor_y 

10320 COM /Echo_local2/ Last _pen, Last_echo_type 

10330 COM /Echo_global/ Echo. drawn , Anchor _x , Anchor.y 

10340 COM /Booleans/ INTEGER True, False 

10350 COM /Modals/ INTEGER Drawmode, Normal, Complement, Current _pen. 

Current.fill 

10360 COM /Echo.globall/ Rubber_line .Cross, Rubber _box 

10370 COM /Bounds/ Max_clip_y 

10380 ! 

10390 IF Echo.drawn THEN CALL Kill.echo 

10400 IF Y<Max_clip_y THEN 

10410 GESCAPE 3, Complement 

10420 IF Current_pen<>0 THEN 

10430 PEN -Current.pen 

10440 ELSE 

10450 PEN -1 

10460 END IF 

10470 SELECT Echo.type 

10480 CASE Rubber.line 

10490 MOVE Anchor_x,Anchor_y 

10500 DRAW X.Y 

10510 Echo_drawn=True 

10520 CASE Cross 

10530 CASE ELSE 

10540 END SELECT 

10550 GESCAPE 3, Drawmode 

10560 SET ECHO X,Y 

10570 Last_x=X 

10580 Last_y=Y 

10590 END IF 

10600 SET ECHO X,Y 

10610 Last_echo_type=Echo_type 

10620 Last_anchor_x=Anchor_x 

10630 Last_anchor_y=Anchor_y 

10640 Last_pen=Current_pen 

10650 PEN Current.pen 

10660 SUBEND 
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Graphics Input 

In many interactive graphics applications the tablet is used as an echo mover. The 
transformation between the graphics tablet and the display should be linear in such 
applications, but the axes do not have to transform through the same scaling. It doesn't 
matter if a square on the tablet represents a square on the display if you are just using the 
tablet to move a cross-hair on the display. However, if you are trying to copy an image 
from paper image to the display (using a graphics tablet) it is important to preserve both 
the linearity and the aspect ratio in the transformations. 

The maximum usable area of a graphics device is bounded by its hard clip limits; for 
example, the pen cannot be made to draw outside these limits on an output device. 

The current usable area is bounded by the rectangle defined by the points PI and P2; 
the lower-left corner is PI, and the upper-right corner is P2. On many devices, these 
points can be moved manually or by the program. 

When the GINIT statement or a PLOTTER IS statement is executed, points PI and P2 
are read from the plotting device; with GINIT, the plotting device is assumed to be the 
internal CRT. The value of RATIO is then set to the result of the following calculation: 

RATIO=(P2x-Plx)/(P2y-Ply) 

GINIT does a WINDOW for the internal CRT only; PLOTTER IS does not do implicit 
windowing. You must explicitly do the following statements: 

If RATIO >= 1: VIEWPORT 0. 100*RATI0,0, 100 
WINDOW 0,100*RATIO. 0,100 

If RATIO < 1 : VIEWPORT . 100 . , 100/RATI0 

WINDOW 0, 100.0. 100/RATI0 
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As seen above, the X and Y coordinates of PI are always both Graphic Display Units. 
The default Graphic Display Unit coordinates of P2 depend on the device; however, the 
smaller coordinate of this point is always 100 Graphic Display Units. Two examples are 
shown below: 



100 GDUs 



133 GDUs 



P2 
(100,133) 



MODEL 226 
CRT Graphics Roster 



P1 
(0,0) 



100 GDUs 



DDDQ DDDD DDDD DDDD 



Default P2 
(100.141) 



HP 9111 
Graphics Tablet Platen 



Default P1 
(0,0) 



-141 GDUs 



Usable- Area Boundaries: 

Left edge = X coordinate of PI 
Bottom edge = Y coordinate of PI 



Right edge = X coordinate of P2 
Top edge = Y coordinate of P2 



Figure 4-1. Default Locations of PI and P2 Using a Model 226 and HP 9111 

When a PLOTTER IS statement is executed, the locations of points P2 and P2 on the 
specified device are determined. The current VIEWPORT statement parameters are 
then used to define the physical area (in GDUs) which is to be scaled (in UDUs) by the 
WINDOW or SHOW statement currently in effect. 

When a subsequent GRAPHICS INPUT IS statement is executed, the operating system 
attempts to apply the current VIEWPORT and WINDOW (or SHOW) parameters to 
the P1,P2 rectangle of the input device. In the preceding example, the two usable 
areas are not identical in size (in GDUs), since the HP 9111 has a smaller horizontal- 
to-vertical aspect ratio. This difference in aspect ratios may produce two types of 
potentially undesirable results when using these two devices together for interactive 
graphics capabilities. The GRAPHICS INPUT IS sets the hard clip limits of the input 
device to the largest space possible that has the same aspect ratio as the output device. 
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HP-HIL Devices 

The HP-HIL family of peripherals is a relatively new set of devices which communicate via 
HP-HIL (Hewlett-Packard Human Interface Loop). The HP-HIL graphics input devices 
include the knob, mouse, and graphics tablets. The KBD binary is required for all HP-HIL 
devices except keyboards. 

HP-HIL Relative Locators (Such as Cursor Keys, Knob, or Mouse) 

The term "relative locator," in the context of a graphics input device, refers to a device 
which returns incremental X,Y offsets. The computer uses these incremental values to 
update the logical coordinates of the graphics locator. No fixed physical reference exists. 

Relative locators can also provide "keystrokes" to represent the various buttons, but this 
capability is not available while the relative locator is being used for graphics input. 

The button which is pressed is reported to the main program by the seventh and 
eighth bytes of the status string returned by DIGITIZE and READ LOCATOR. To determine 
if any buttons were pressed, check VAL(Status$). If the value is non-zero, a button 
was pressed. To determine which button was pressed, check the appropriate bit in the 
number represented by the ASCII characters in positions seven and eight of the string. 
For example: 

ALLOCATE Button (0 : Max.buttons) 

FOR Bit=0 TO Max.buttons 

Button (Bit) =BIT (VAL (Status$ [7] ) , Bit) 
NEXT Bit 

IF Button ((n)) THEN . . . 

The keyboard is a relative device, also. For example, pressing | Enter | will trigger a 
DIGITIZE with a status string of "1,2,0.00". However, this does not show up in a READ 
LOCATOR operation. 

Executing GRAPHICS INPUT IS KBD, "KBD" turns on all relative locators and the results 
are combined. Thus, you can safely intermix input from arrow keys, an internal knob, 
external knobs, and mice. 
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HP-HIL Absolute Locators (Such as a Tablet or Touchscreen) 

An "absolute locator" is a locator which has a finite mapping area, such as the HP 9111 
tablet or the 35723A Touchscreen. On these devices, the data returned are X,Y 
coordinate pairs. Each possible value of these pairs corresponds to a fixed location 
on the physical surface of the digitizing device. 

"Proximity," in the context of the following paragraphs, is defined as the area in which 
a locator can detect that you are pointing to something. For example, on a 35723A 
Touchscreen, proximity is where your finger is close enough to the screen that the 
computer can assign a location to your finger's "shadow." For a graphics tablet, proximity 
is where the tablet can detect the presence of the stylus or puck. 

The Touchscreen is supported as a GRAPHICS INPUT device — a low-resolution TABLET. Going 
into proximity on a Touchscreen — pointing to something, with your finger touching the 
screen — causes the Touchscreen to sense your finger's location. Going out of proximity 
on a Touchscreen — removing your finger from the screen — triggers a DIGITIZE. On the 
Touchscreen and the 45911 A, 46087A and 46088A tablets, when out of proximity, bytes 
7 and 8 of the "device status" string contain the ASCII characters "64" . 

The HP-HIL tablets consider all buttons unpressed when out of proximity. Buttons 
which are held down while moving into proximity are sent as key presses at the proximity 
transition. This can trigger a digitize at that point. 

Similar to the combining of relative locators, executing GRAPHICS INPUT IS KBD, "TABLET" 
turns on all absolute locators and combines the results. However, since the display can 
be scaled to only one absolute locator at a time, and since the inputs replace each other 
(as opposed to adding to each other), this is not a useful feature. 

For an program that supports the use of all of these devices, LOAD and RUN the 
"KBD_ICONS" program on the Manual Examples disc. 

The GESCAPE statement, in conjunction with the device selector KBD, allows you to both 
set and read hard clip limits for absolute locators on the HP-HIL bus. Note that the 
hard clip limits are only the right-most and uppermost limits; the left and bottom edges 
of the plotting surface are always zero. For example, to set the hard clip limits for an 
HP-HIL Touchscreen in spite of the presence of a tablet on the bus: 

10 INTEGER Parameter_array(l:2) 

20 Parameter_array(l)=52 

30 Parameter_array(2)=46 

40 GESCAPE KBD, 20, Parameter .array (*) ! Set absolute- locator hard limits 
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To read the hard clip limits for all the absolute locators on the HP-HIL bus, you can use 
GESCAPE with operation selector 21 or 22. For example: 

10 INTEGER Param_array(l:4) ! We have TWO absolute locators on the HP-HIL 
20 GESCAPE KBD,22;Param_array(*) ! Read ALL absolute locator limits 

If Param_array had been larger that four elements, the first unused element — after using 
two elements for each absolute locator on the loop — would contain —1. This special value 
is to indicate that there are no more coordinate pairs. 

Unlike other GESCAPE operation selectors, operation selectors 20 through 22 do not require 
the device at the specified select code to be currently active. Indeed, if you want to 
set the hard clip limits, GESCAPE KBD, 20 must be executed before the GRAPHICS INPUT IS 
KBD, "TABLET". 

Operation selectors 20 and 21 will give DEVICE NOT PRESENT errors if no tablet, Touch- 
screen, or HP-HIL interface exists. An operation selector 22, under the same circum- 
stances, will return a —1 for the first entry in the return array. 

The HP-HIL Tablets can be treated as a superset of the HP9111A when used with the 
built-in GRAPHICS INPUT IS, READ LOCATOR, and DIGITIZE commands. The 
HP-HIL Tablets are a superset because of the extra button information available in the 
READ LOCATOR and DIGITIZE status strings. 

There is one important difference between the HP 9111A and the HP-HIL Tablets which 
may cause programs that work with the HP9111A to have problems with the HP- 
HIL Tablets. When a READ LOCATOR or DIGITIZE command is executed for an 
HP9111A, the system sends a request to the HP9111A for the current location of the 
stylus. The HP-HIL Tablets, on the other hand, send the current location only when 
it changes. They cannot be asked for the current location. When GRAPHICS INPUT IS 
KBD, "TABLET" is executed, the internal variables representing the state of the HP-HIL 
Tablet are initialized. Since BASIC does not know the true state of the tablet at the 
time, the initialization sets up a unique state which can become valid with any set of 
received data for the tablet, but which can also be easily recognized as invalid. This 
state is in proximity with negative device coordinates. 

The difference between the HP 9111A and the HP-HIL Tablets should not be a problem 
for a program which executes the GRAPHICS INPUT IS statement initially and leaves 
graphics input active while it runs. However, it may be a problem if the program was 
written to do a GRAPHICS INPUT IS before each call to READ LOCATOR because 
this causes initilization to occur just before input. Note that after GRAPHICS INPUT IS 
KBD. "TABLET" is executed, the data returned by READ LOCATOR will be recognizably 
invalid until a transaction on the tablet causes valid data to be sent to the controller. 
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Support of HP-HIL Devices for Graphics Input 

Here is a generic description of the HP-HIL devices for which BASIC provides drivers 1 : 

• Relative locators with 1 to 3 dimensions and with up to 6 buttons; 

• Absolute locators with 1 or 2 dimensions and with up to 6 buttons and/or proximity. 

For both of these categories of devices, extra dimensions or multiple sets of axes disqualify 
the device. Note that the maximum number of buttons is six; any "seventh" button would 
be ignored. 



Note 

BASIC only configures the HP-HIL bus at power-up and SCRATCH 
A. Reconfiguring the bus physically without doing a SCRATCH A 
can result in devices not being recognized and/or in data being 
misinterpreted as coming from another type of device. 



You can also write your own drivers for other devices. See the "HP-HIL Interface" chapter of BASIC 
Interfacing Techniques. 
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Dealing With Multiple Buttons 

One feature of the 46060A mouse and the 46089A digitizer puck is that there are multiple 
buttons available to press when digitizing. This means that there is a choice, when 
digitizing, of how to signal the computer that you've made your choice. 

The way that the computer finds out which button you pressed is by the status string 
returned from DIGITIZE and READ LOCATOR. The following example program merely tracks, 
on the CRT, the stylus movements on the digitizer. Note the use of this status string in 
the following example program. 

10 ! Program "Multibutn" 

20 GINIT 

30 PLOTTER IS CRT, "INTERNAL" 

40 VIEWPORT 0,100*RATI0. 0,100 

50 WINDOW 0,100.0,100 

60 TRACK CRT IS ON 

70 GRAPHICS INPUT IS KBD, "TABLET" 

80 Statu8$="0,0,0,00" 

90 REPEAT 

100 REPEAT 

110 01d_statu8$=Status$ 

120 READ LOCATOR. X.Y, Status! 

130 SET ECHO X,Y 

140 Buttons=VAL (Status$ [7,8]) 

150 UNTIL Buttons-BINAND (Buttons. VAL(01d_status$ [7])) ! Note button 

presses, 

160 IF Buttons=64 THEN ! ignore releases 

170 PRINT "You exited proximity." 

180 ELSE 

190 PRINT USING "#,K";"You pressed " 



200 Num_buttons=0 

210 FOR Button=l TO 6 

220 IF BIT (Buttons, Butt on- 1) THEN Num_buttons=Num_buttons+l 

230 NEXT Button 

240 IF Num_buttons=0 THEN PRINT USING "#.K";"no " 

250 PRINT USING "#,K" ; "button" 

260 IF Num.buttonsol THEN PRINT USING "#.K";"s" 

270 FOR Button=l TO 6 

280 IF BIT (Buttons. Butt on- 1) THEN 

290 PRINT USING "#.K";" ".Button 

300 Num_buttons=Num_buttons-l 

310 SELECT Num.buttons 

320 CASE 

330 ! Do nothing 

340 CASE 1 

350 PRINT USING "#.K";" and" 

360 CASE 2 TO 6 

370 PRINT USING "#,K";" ," 
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380 END SELECT 

390 END IF 

400 NEXT Button 

410 PRINT "." 

420 END IF 

430 UNTIL Buttons=ll ! Stop on simultaneous buttons 1, 2, and 4 

440 GINIT ! Get rid of the cursor 

450 PRINT "Program finished." 

460 END 

Menu-Picking 

Perhaps one of the most common uses for the Touchscreen is that of presenting several 
options on the screen, and having the user select one by pointing to it. The following 
example program does just that. It presents five options on the screen, and the user 
picks one. All the main program does after that is state which option the user picked; 
you may enhance and modify the example to fit your application. 

Points of note in the example: 

• The function FNMenu is a general-purpose function to which a menu array can be 
passed, and from which the selected option is returned. 

• The user must indicate a location mthin the option boxes; if not, a warning will be 
given, and the user must try again. This prevents invalid data from being returned 
to the calling routine. 

• The options are LABELed in graphics, rather than being PRINTed in alpha. This 
avoids the difficulty in aligning alpha text and graphics scaling, which is where the 
DIGITIZE works from. 

10 ! Program "Pick" 

20 OPTION BASE 1 

30 DIM Menu$(5)[20] 

40 READ MenuK*) 

50 DATA Accounts Receivable, Accounts 

Payable, Personnel, Payroll, Manufacturing 

60 OUTPUT KBD USING "#.B,K" ;255, "K" ! Clear the alpha screen 

70 Selection=FNMenu(Menu$(*)) 

80 PRINT USING "#,K";"You selected option #" .Selection. ". " 

90 END 

100 ! ****************************************************************** 

110 Menu:DEF FNMenu (Menu! (*)) 

120 GINIT 

130 PLOTTER IS CRT. "INTERNAL" 

140 WINDOW 0,1. 6. 5,. 5 

150 GRAPHICS ON 

160 LORG 5 
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170 GRAPHICS INPUT IS KBD. "TABLET" 

180 Field_length=20 

190 FOR 1=1 TO SIZE(Menu$,l) 

200 MOVE 0.I-.25 

210 RECTANGLE . 5 . . 5 , EDGE 

220 MOVE .25,1 

230 LABEL Menu$(I) 

240 NEXT I 

250 TRACK CRT IS ON 

260 REPEAT 

270 DIGITIZE X,Y 

280 Rounded=INT(Y+.5) 

290 Ok=(Rounded>=l) AND (Rounded<=SIZE(Menu$,D) AND (ABS(Y-Rounded)<.25) 

300 Ok=Ok AND (X>0) AND (X<.5) 

310 IF NOT Ok THEN 

320 BEEP 

330 DISP "Please place the cursor in an option box before selection." 

340 WAIT 2 

350 DISP 

360 END IF 

370 UNTIL Ok 

380 GINIT ! Get rid of the cursor 

390 GCLEAR ! Clear the graphics screen 

400 RETURN INT(Y+.5) ! Return the menu option selected 

410 FNEND 
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Color can be used for emphasis, for clarity, and just to present visually pleasing images. 
Color is a very powerful tool and it follows directly that it is very easy to misuse. Be 
careful in using color and it will serve as a valuable tool for communication. Misuse it 
and it will garble the communication. 

The biggest benefit of the color computer is that it makes experimenting with color so 
easy. It is easy to test out ideas before you fully implement them. It is also possible to 
use the color map for simple animation effects and some just plain impressive images. 
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Non-Color-Mapped Color 



There are two types of color displays available with Series 200/300 computers: color- 
mapped displays, and non-color-mapped displays. This section discusses the latter type. 
(Subsequent sections discuss color-mapped displays.) 

Specifying a Non-Color-Mapped Display 

When either of the following statements are executed: 

PLOTTER IS CRT, "INTERNAL" 

or 
PLOTTER IS 28,"98627A" 

a non-color-mapped display is selected as the plotting device. With the first statement, 
the non-color-mapped mode is chosen, even though the display may be capable of 
operating in the color-mapped mode. 

Available Colors 

With non-color-mapped displays, eight colors are available through the PEN and AREA 
PEN statements: 

• Black and White 

• Red, Green, and Blue (the additive color primaries ) 

• Cyan, Magenta, and Yellow (the complements of the additive color primaries) 
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Using the HP 98627A Color Interface and Display 

The HP 98627A interface allows you to connect an RGB color monitor to your computer. 
The HP 98627A does not support color map operations; thus, you cannot change the color 
of an area on the screen without redrawing that area. Nor can you define your own color- 
addition scheme as you can with a color-mapped device (see subsequent sections of this 
chapter). In addition to this, there are only eight pure colors 1 ; to get others, you must 
go to dithering. 

If you have an HP 98627A interface connected to a 60 Hz, non-interlaced color monitor 2 , 
you could send graphics to it by executing the following statement: 

PLOTTER IS 28,"98627A" 

There are many types of color monitors which you can connect to your computer through 
an HP 9862 7A color monitor interface. In the PLOTTER IS statement, you must specify 
accordingly: 

Table 5-1. HP 98627A Display Formats 



Desired Display Format 


Plotter Specifier 


Standard Graphics 

512 by 390 pixels, 
60 Hz, non-interlaced 

512 by 390 pixels, 
50 Hz, non-interlaced 

High-Resolution Graphics 

512 by 512 pixels, 
46.5 Hz, non-interlaced 

TV Compatible Graphics 

512 by 474 pixels, 
60 Hz, interlaced 
(30 Hz refresh rate) 

512 by 512 pixels, 
50 Hz, interlaced 
(25 Hz refresh rate) 


"98627 A" or 
"98627A;US STD" 

"98627A;EUR0 STD" 

"98627A;HI RES" 

"98627A;US TV" 
"98627A;EUR0 TV" 



Only eight pure colors can be created on an external color monitor. This is because there is no control 
over the intensity of each color gun. Each color can be either off or on, and there are three colors: red, 
green, and blue. Two states, three colors: 2—8. 

Depending on your choice of color monitor, there may be more specification necessary in the string 
expression part of the PLOTTER IS statement. See the subsequent table for further information. 
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The HP98627A's display memory is composed of three "color planes" of as many bits as 
necessary to compose a full picture. Following is a description of how the various pen 
selectors affect the operation of an external color monitor. 

For the an external color monitor connected through the HP98627A, pen selectors are 
mapped into the range —7 through 7. Thus: 

If pen selector>0 then use PEN (pen selector- 1) MOD 7+1 

If pen selector=0 then use PEN (complement 1 ) 

If pen selector <0 then use PEN -((ABS(pen selector)- 1) MOD 7+1) 

Non-Color-Mapped Dominant Pens 

The meanings of the different pen values are shown in the table below. The pen value 
can cause either a 1 (draw), a (erase), n/c (no change), or complement (invert) the 
value in each memory plane. 

Table 5-2. Non-Color-Map Dominant-Pen Mode 







Plane 1 


Plane 2 


Plane 3 


Pen 


Action 


(red) 


(green) 


(blue) 


-7 


Erase Magenta 





n/c 





-6 


Erase Blue 


n/c 


n/c 





-5 


Erase Cyan 


n/c 








-4 


Erase Green 


n/c 





n/c 


-3 


Erase Yellow 








n/c 


-2 


Erase Red 





n/c 


n/c 


-1 


Erase White 














Complement 


invert 


invert 


invert 


1 


Draw White 


1 


1 


1 


2 


Draw Red 


1 








3 


Draw Yellow 


1 


1 





4 


Draw Green 





1 





5 


Draw Cyan 





1 


1 


6 


Draw Blue 








1 


7 


Draw Magenta 


1 





1 



"Complement" means to change the state of pixels; that is, to draw lines where there are none, and to 
erase where lines already exist. 
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Choosing Pen Colors 

The colors can be selected the same way they are for other display devices — with the 
PEN statement. If all you are after is highlighting a portion of a graph or chart, this may 
be all the color that you need. (In non-color-map mode, other graphics displays behave 
exactly like the HP 98627A Color Interface Card.) The colors and their pen selectors are 
listed below: 

Table 5-3. Default Non-Color-Map Values 



Pen 




Frame Buffer 


Value 


Color 


Entry 





Black 





1 


White 


7 


2 


Red 


1 


3 


Yellow 


3 


4 


Green 


2 


5 


Cyan 


6 


6 


Blue 


4 


7 


Magenta 


5 



If you are in this mode, you can draw lines in the eight colors listed above. It is possible, 
however, to fill areas with other shades. These tones are achieved through dithering. 
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Dithering produces different shades by combining dots of the 8 colors described above. 
The screen is divided up into 4-by-4 cells and patterns of dots within the cells are 
turned on to match, as closely as possible, the color you specify. Dithered colors are 
defined with the AREA COLOR and AREA INTENSITY statements. The color models 
available are discussed in a subsequent section entitled "Color Specification." (The actual 
color matching process used in dithering is described under "Dithering and the Color 
Map.") Filling is specified by using the secondary keyword FILL in any of the following 
statements: 

IPLOT PLOT POLYGON 

RECTANGLE RPLOT SYMBOL 

GSTORE Array Sizes for the HP 98627A 

As mentioned above, different color monitors display different numbers of pixels. To 
figure the array size necessary to GSTORE an image, multiply the number pixels in the 
X direction by the number of pixels in the Y direction, multiply that by the number of 
color planes (three) and divide by sixteen (the number of bits per word). For example, 
say you want to calculate the array size needed for storing an image created on a U.S. 
standard monitor (see the first entry in the table above): 512x390x34-16=37 440 words. 
However, you cannot specify an array which has any more than 32 767 elements in any 
dimension. To get around this restriction, what is typically done is to make one dimension 
the number of memory planes (three) and the other dimension the number of pixels 
(512x3904-16). Thus, the statement declaring an array for storing an image from a 
"U.S. Standard" external color monitor could look like this: 

INTEGER Imaged: 12480, 1:3) 

If your array is larger than necessary to store an image, it will be filled only to the point 
where the image is exhausted. If your image is larger than your array, the array will be 
filled completely, and the remainder of the image will be ignored. 

The GSTORE and GLOAD statements store the graphics image into this array and load 
it back into graphics memory, respectively. 
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Using Color-Map Displays 

If you are trying to define a complex human interface, you will need more colors and 
more control over the colors. The system described in the rest of this chapter (except 
for dithering) is available only after you turn on the color map. To do so, execute: 



nr nfnnr^n 



FLulTfcK is UKT,"iNTluiMAL n ;i;uluii mw 

If you have a 98782A color monitor connected through a 98700 display controller, and it 
is set to address 25, you could execute: 

PLOTTER IS 25," INTERNAL"; COLOR MAP 

In this way, plots can easily be plotted on various devices with a minimum of program- 
ming effort. 

The Frame Buffer 

Most Series 200/300 color displays have bit-mapped color graphics. An area in memory 
called a frame buffer provides 1, 4, 6, or 8 bits of memory for each pixel location. (The 
number of bits available for describing each pixel is sometimes called the depth of the 
frame buffer.) A 4 bit frame buffer allows each pixel location to contain a number 
between and 15 (inclusive). Thus a four-plane frame buffer can display lines in 16 
different colors on the CRT, simultaneously. At any given time, the values written to the 
frame buffer fall into four categories: ' 

• Background Value — Whenever GCLEAR is executed, all the pixel locations in the 
frame buffer are set to 0. Thus, is the background color. 

• Line Value — The PEN statement is used to determine the value written to the frame 
buffer for all lines drawn. This includes all lines (including characters created by 
LABEL) and outlines (specified by the secondary keyword EDGE). 

• Fill Value — The AREA PEN statement is used to specify the value written to the 
frame buffer for filling areas (specified by the secondary keyword FILL). 

• Dithered Colors— AREA INTENSITY and AREA COLOR can be used for speci- 
fying a fill color, but the results can be surprising when the COLOR MAP option 
has been selected (see "Dithering and Color Maps"). In addition, the dithered col- 
ors have a tendency to introduce texturing into the areas and may not accurately 
reproduce the color you specify. 
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The PEN, AREA PEN, AREA INTENSITY, and AREA COLOR statements control 
what are referred to as modal attributes. This means that the value established by one 
of the statements stays in effect until it is altered by another statement. (GINIT alters 
all of them.) 

Erasing Colors 

Erasing is a fairly simple concept in frame buffers that are a single bit deep. You just 
restore the background by setting the portion of the frame buffer you wish to erase to 0. 
The concept is a little more complex in frame buffers with more depth. As long as the 
graphics system is in the dominant writing mode (see "Non-Dominant Writing"), there 
are three ways of erasing: 

• The easiest is GCLEAR. However, GCLEAR destroys the entire image. If you want 
to erase only part of the image, it is necessary to be more precise. 

• If you know the pen used to write the line, you can use a negative pen selector of 
the same magnitude. This will erase the pen value from the frame buffer. (It works 
for PEN and AREA PEN.) 

• If you don't know the pen used to create the image, you can overwrite the image 
with the background color. This can be PEN 0, or, if you are on a filled area, 
whatever pen the area was filled with. A fairly simple extension of this is to use 
the RECTANGLE statement to implement a local GCLEAR to erase portions of 
the screen. 
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Default Colors 

Throughout the discussion of the frame buffer, only values were talked about. If you do 
not modify the color map (see the next section for how to do that) the colors selected by 
the PEN and AREA PEN values depend on the default color map values, which are: 

Table 5-4. Default Color Map Values 



Value 


Color 





Black 


1 


White 


2 


Red 


3 


Yellow 


4 


Green 


5 


Cyan 


6 


Blue 


7 


Magenta 


8 


Black 


9 


Olive Green 


10 


Aqua 


11 


Royal Blue 


12 


Maroon 


13 


Brick Red 


14 


Orange 


15 


Brown 



Pens 16 through the end of the color map are also defined for displays with more than 
four planes. You can interrogate the color map with GESCAPE for exact values. 
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The Primary Colors 

The lower eight pens of the default color map are the same as are available without 
enabling the color map, but they do not write the same value into the frame buffer (see 
the PEN statement in the BASIC Language Reference.) The colors are: 

• Black and White (the extremes of no-color) 

• Red, Green, and Blue (the additive primaries) 

• Cyan, Magenta, and Yellow (the complements of the additive primaries - which 
happen to be the subtractive primaries) 

The Business Colors 

The upper 8 colors (8 through 15) were selected by a graphic designer to produce graphs 
and charts for business applications. The colors are: 

• Maroon, Brick Red, Orange, and Brown (warm colors) 

• Black, Olive Green, Aqua, Royal Blue (cool colors) 

These colors are one designer's idea of appropriate colors for business charts and graphs. 
They were chosen to avoid clashing with each other. A technique for using them is 
described under "Color Hard Copy" in the "Color Spaces" section at the end of this 
chapter. 

It is possible to use the color computer with the default color map. The color used will 
depend directly on the value in the frame buffer. This is fine if the work you are doing 
can be accomplished using the 16 colors supplied as the system defaults. This is often not 
the case, and this overlooks one of the most powerful features of the color computer — the 
color map. 
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The Color Map 

The color-mapped system uses the value in the frame buffer as an index into a color map. 
The color map contains a much larger description of the color to be used and, just as 
importantly, the color description used is indirect. Thus, the value in the frame buffer 
does not say "use color 12," but rather "use the color described by register number 12." 
Note that 8-bit binary numbers are stored in the color map in the diagram below. This 

5o r>nt- 4-V.« «r,o^ f™. r. \AnA^ OQCP. it- r,t~~„r, A kU U:~„~.. ~„~,U„~~ All „±1 1 1 

systems use 8-bit binary numbers in their color map. 
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Figure 5-1. Color Map (Model 236C) 
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The CRT refresh circuitry reads the value from the pixel location in the frame buffer, 
uses it to look up the color value in the color map, and displays that color at that pixel 
location on the CRT. Thus, it is possible to draw a picture with a given set of colors in the 
color map (a set of colors is called a palette) and then change palettes and produce a new 
picture by redefining the colors, rather than having to redraw the picture. (The binary 
numbers in the color map are created by the system. The user deals with normalized 
values, as described under "Color Specification.") 

Color Specification 

The SET PEN statement is used to control the values in the color registers in the color 
map. The SET PEN statement supports two color models for selecting the color each 
pen represents, the RGB (Red, Green, Blue) model and the HSL (Hue, Saturation, 
Luminosity) model. Since the color models are dynamically interactive, it is much easier 
to understand them by experimenting with them. 

The RGB Model (Red, Green, Blue) 

The RGB model can be thought of as mixing the output of three light sources (one 
each of Red, Green, and Blue). The parameters in the model specify the intensity of 
each of the light sources. The RGB model is accessed through the secondary keyword 
INTENSITY with the SET PEN statement. The RGB model is closest to the actual 
physical system used by color displays. The Red, Green, and Blue values represent the 
value modulating the electron guns that excite the colored phosphors on the CRT. The 
values are normalized (range from through 1). The normalized values are converted to 
8-bit 1 binary numbers to store in the color map. Each of the values is used to control a 
8-bit 1 digital-to-analog converter, providing 256 1 intensity levels from full-off to full-on 
for each of the colors. Thus, 

SET PEN INTENSITY 7/255,7/255,7/255 

sets pen (the background color) to approximately a "50%" gray value. (Whenever all 
the guns are set to the same intensity, a gray value is obtained.) It is simpler to think 
in l/255ths 2 and let the computer do the conversion to a decimal fraction, since the 
intensity parameters can be numeric expressions. The parameters for the INTENSITY 
mode of SET PEN are in the same order they appear in the name of the model (Red, 
Green, Blue). 



The Model 236C stores 4-bit binary numbers in the color map. 
The Model 236C uses l/15ths for its intensity value. 
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The HSL Model (Hue, Saturation, Luminosity) 

The HSL model is closer to the intuitive model of color used by artists, and is very 
effective for interactive color selection. The three parameters represent hue (the pure 
color to be worked with), saturation (the ratio of the pure color mixed with white), and 
luminosity (the brightness-per-unit area.) The following plate is of a screen from the 
program "NEW.MODELS" , and provides a physical model to relate the parameters of 
the HSL model to. 




Figure 5-2. HSL Physical Model 

The Hue parameter rotates a color wheel to select a "pure" color to use. This color is 
then mixed with white light. The ratio of the pure colored light to the white light is 
controlled by the Saturation slider. Finally, the output passes through the luminosity 
iris (think of it as a hole you can adjust the size of) that controls the brightness of the 
output. 

The HSL model is accessed through the SET PEN statement with the secondary keyword 
COLOR: 

SET PEN Current _per. COLOR H (Current _pen) ,S (Current _pen) ,L (Current _pen) 
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HSL Resolution 

The resolution of the HSL model is not specified anywhere. This is because the resolution 
for the various parameters is not a fixed value. The resolution for any parameter of the 
HSL system is dependent on all three of the parameters. The resolution is not only 
changed by the other two parameters, but also by the magnitude of the parameter you 
are varying. If resolution of the system becomes important in a program, it is possible 
to use a GESCAPE to read the RGB values back from the color map to watch for a 
change in the actual value being written in the color map. Change the HSL parameters 
by very small increments (on the order of 0.001) until a change in the color map entry is 
detected. This is best done using color map entry 0, since you will only need to read a 
single entry from the color map to check for the change. 

Which Model? 

Two models are provided for your color computer. The INTENSITY option of the SET 
PEN statement is faster than the COLOR option, because it directly reflects the hardware 
in the system. If you are working with primaries only, or want gray scale output, the 
RGB model is great. If, on the other hand, you are trying to deal with pastels and shades, 
you are better off with a color model that is intuitive in nature, and that is where the 
HSL model shines. 

It is possible to get the best of both worlds by using the HSL model for the human 
interaction, then reading the color map with a GESCAPE statement to get the RGB 
color values. The RGB values can then be used to rapidly load a palette into the color 
map. The "SET.COLOR" program does exactly that to calculate the correct cursor and 
text color to use when the user sets a background color. This is done by reading in the 
RGB color map values, calculating which corner of the color cube is farthest from the 
background color, setting the foreground pen and text displays to that color, and then 
writing the RGB array back into the color map. Even though the primary interaction 
is with the HSL model, the RGB is used because it is more convenient to find distances 
between colors in it. 

! Read the color map 



1270 


GESCAPE CRT, 1 


!;Rgb(*) 


1280 


IF Rgb(0,l)<. 


5 THEN 


1290 


Rgb(l,l)=l 




1300 


ELSE 




1310 


Rgb(l,l)=0 




1320 


END IF 




1330 


i 




1340 


IF Rgb(0,2)<. 


5 THEN 


1350 


Rgb(l,2)=l 




1360 


ELSE 




1370 


Rgb(l,2)=0 




1380 


END IF 




1390 


! 
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1400 IF Rgb(0,3)<.5 THEN 

1410 Rgb(1.3)=l 

1420 ELSE 

1430 Rgb(l,3)=0 

1440 END IF 

1450 ! 

1460 Print_color=0 

1470 FOR 1=1 TO 3 

1480 Print_color=Print_color*2+Rgb(l , I) 

1490 NEXT I 

1500 ! 

1510 CONTROL 1 , 5 ; Funny.number (Print.color) 

1520 SET PEN INTENSITY Rgb(*) ! Refill the color map 

By the way, lines 1280 through 1490 can be replaced by the following: 

1280 Print_color=4*(Rgb(0,l)<.5)+2*(Rgb(0.2)<.5)+(Rgb(0,3)<.5) 

1290 FOR 1=1 TO 3 

1300 RGB (1 . I) =BIT (Print .color , 3-1) 

1310 NEXT I 

These lines will execute faster, but are harder to understand. 

One point brought out by the preceding example is that the models can be mixed freely. 
There is nothing to prevent using INTENSITY to set a gray background color and a 
black pen, and then using COLOR to produce the rest of the palette. Use whatever is 
easiest for what you want to do. 

If you are interested in pursuing the color models, the RGB model is formally referred to 
as a color cube and the HSL model is called the Color Cylinder. These models represent 
idealized color spaces and are described under "Color Spaces" at the end of this chapter. 
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Dithering and Color Maps 

In early color systems which did not provide control of the intensity of individual pixels, 
dithering became a very popular method of increasing the number of shades available 
to the machine. By reducing the effective resolution of the system, it was possible to 
provide a large variety of shades. 

Your color computer provides dithering for applications that require more shades than 16, 
64 or 256 colors that are available at any single time with the color map on your particular 
color-mapped system. The AREA INTENSITY and AREA COLOR statements provide 
access to the dithered colors, although they will fill with a single pen if the color requested 
exists in the current color map. 

If you are not in the color-map mode, AREA INTENSITY and AREA COLOR will 
produce the same results on a color computer that they produce on non-color-map 
devices, such as the 98627 Color Interface Card. 

Creating A Dithered Color 

The following discussion gets a little abstract, and it is not absolutely necessary to 
understand how dithering works to use it. It is interesting information and can be useful 
knowledge if dithered areas don't do what you expect. 

A color vector is a directed line connecting two points in RGB color space. The dithering 
process tries to match a target vector by constructing a solution vector from colors in the 
color map. The actual dithered color to be produced will be 16 times the target vector, 
since 16 points in the dither area will be combined to create it. 

The color matching process requires sixteen steps. First, the target vector is compared 
to the vectors produced by all the colors in the color map. The one which is closest 1 to 
the target vector is selected as the first component of the solution vector. 



The distance between the points in the RGB color space is used. The RGB color space is a 3-dimensional 
Cartesian coordinate system. 
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The following process is then repeated 15 times: 

1. The target vector is added to itself to produce a new target vector. 

2. A trial solution vector is created for each color in the color map by adding the 
vector for the color map entry to the previous solution vector. The trial solution 
vector that is closest to the target vector is selected as the new solution vector. 

At this point, the target vector is 16 times the original target vector, and the solution 
vector consists of a summation of color vectors from the color map that produce, at each 
iteration, the vector closest to the target vector. 

The colors are then sorted by luminosity and filled into the following precedence matrix 
(the most luminous color is filled into the lowest numbered pixel): 

Table 5-5. Dithering Precedence Matrix 



1 


13 


4 


16 


9 


5 


12 


8 


3 


15 


2 


14 


11 


7 


'10 


6 



The dither precedence matrix is actually tied to pixel locations on the CRT. The matrix 
is repeated across the CRT and from the top to the bottom of the CRT. Areas to be 
filled are mapped against the fixed dithering pattern. All dither cells completely within 
an outline to be filled are turned on according to the precedence pattern. Cells which 
are only partially within the border are only partially enabled. If the area fill pattern 
calls for a pixel outside the boundary to be set, it will not be. 

There are problems with dithering, especially when used with the color map: 

• The dithered color selection tends to produce textures. In some cases, the textures 
overwhelm the shade produced. 

• The dithered colors are not necessarily accurate representations of the color 
specified. This is especially true if the color map is loaded with a palette that 
is less than ideal for dithering. A 4-by-4 dither cell with one full intensity green 
pixel does not look the same as the same cell filled with the color map color 1/15 
green. 
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• The dithered colors are not stable if the color map is altered. (If you change the 
color map after doing a fill based on an AREA COLOR or AREA INTENSITY, 
the fill value can change.) 

• The dithering operation produces anomalies when the area to be filled is thin. If 
it is less than four pixels wide or high, it cannot contain the entire dither cell and 
the results can be surprising for colors which turn on small portions of the cell. 

If You Need More Colors 

If you have an application that requires more than 16 (4-plane systems), 64 (6-plane 
systems) or 256 (8-plane systems) colors, the first thing to do is see if you can redefine 
it to use 16, 64 or 256 colors. In many cases this is possible, and the higher quality of 
the color mapped palette is worth a little checking to see if you can use it. 

If you absolutely have to get at a larger palette, then load a palette optimized for dithering 
(optimizing for dithering is described below) and stick with dithering. Don't try to mix 
color map redefinition and dithering — it will probably cause you a lot of grief. Especially, 
do not try to do interactive redefinition of the color map in a system that also does 
dithering. 

Optimizing for Dithering 

The actual color palette you require determines the optimum color map values. The 
following program leaves the additive primaries and their complements in the lower eight 
locations and replaces the designer colors in the upper half of the color map with half- 
luminosity values for each of the lower eight colors. 

10 ! "DITHER.PAL" 

20 ! This program creates a palette for dithering 

30 ! on a 16 color map system. 

40 GINIT 

50 PLOTTER IS CRT, "INTERNAL" ; COLOR MAP 

60 GRAPHICS ON 

70 WINDOW 0,16,-. 1,1 

80 DIM Colors (0:15, 1:3) 

90 GESCAPE CRT,2;Colors(*) 

100 FOR 1=0 TO 7 

110 Colors(I+8,l)=Colors(I,l)/2 

120 Colors(I+8,2)=Colors(I,2)/2 

130 Colors(I+8,3)=Colors(I,3)/2 

140 NEXT I 

150 SET PEN INTENSITY Colors (*) 

160 FOR 1=0 TO 15 

170 MOVE 1.0 

180 AREA PEN I 

190 RECTANGLE 1,1, FILL 
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200 NEXT I 
210 END 

The color map generated by "DITHER.PAL" is optimized for producing the widest 
selection of colors. If you have specialized needs you can create palettes that are even 
more optimum for specific applications. For example, you could load the color map 
with 16 shades of red to produce an optimum palette for producing an image that only 
contained red objects. 

Non-Dominant Writing 

All the techniques described up until now have dealt with dominant writing to the frame 
buffer. In the dominant writing mode, the pen selector is written directly to the color 
map, and overwrites whatever is currently in the frame buffer. In non-dominant writing, 
a bit-by-bit logical-OR is performed on the contents of the frame buffer and the pen 
selector value being written to the frame buffer. Thus, if pen 1 is written to a buffer 
location that has already been written to with pen 6, the buffer location will contain 7, 
but writing pen 2 to a buffer location that has already been written to with pen 6 will 
not change the contents. 

Non-dominant writing can be used to create a properly defined palette of colors in the 
color map. Using this palette of colors, it is fairly easy to create a copy of the primary 
color circles. An additive palette is created in lines 490 through 540, by modeling 
the three least-significant bits of the frame buffer as color planes. Bit is treated as 
representing red, bit 1 as representing green, and bit 2 as representing blue. 

470 | ******************* Create the Additive Palette *** 

480 ! 

490 FOR 1=0 TO 7 

500 Red=BIT(I.0) 

510 Green=BIT(I,l) 

520 Blue=BIT(I,2) 

530 SET PEN I INTENSITY Red. Green, Blue 

540 NEXT I 

The palette is created in the color map and then read into an array, using GESCAPE. 

620 GESCAPE CRT,2;Additive(*) ! Read additive palette 

The subtractive palette is created in lines 750 through 840. The palette is created by 
converting between the RGB map created for the additive palette, above, and a CMY 
(Cyan, Magenta, and Yellow) system. (The technique is described in more detail in the 
next section, "Color Spaces.") 
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750 
760 
770 
780 
790 
800 
810 
820 



FOR 1=0 TO 15 
FOR J=l TO 3 

Point(l,J)=Additive(I,J) 
NEXT J 
MAT New_point= Unit-Point 



! Create subtractive palette 

! Read a point from additive palette 



! The next line prints out PEN INTENSITY values for both palettes 
IF I<8 THEN PRINT USING Pen_image2;White$, I ,Point(l , 1) .Point(l ,2) , 

Point (1,3). Black$ , I . New.point (1,1). New.point (1.2), New.point (1.3) 

830 SET PEN I INTENSITY New_point(*) ! 

840 NEXT I 



The Surprise palette is created by reading from data statements. 

2io I************** Create the Surprise Palette **************** 

220 ! 

230 SET PEN INTENSITY .6. .6. .6 ! Gray background 

240 RESTORE Surprise ! Make sure you read the right data 

250 Surprise: ! DATA for surprise palette 



260 


DATA .9 


Pen 1 


270 


DATA .2 


Pen 2 


280 


DATA .5 


Pen 3 


290 


DATA .7 


Pen 4 


300 


DATA .1 


Pen 5 


310 


DATA .8 


Pen 6 


320 


DATA .3 


Pen 7 


330 


i 




340 


FOR 1=1 TO 7 




350 


READ Hue 




360 


SET PEN I COLOR 


Hue , 1 . 1 


370 


NEXT I 




380 


I 




390 


MAT Point= (.6) 




400 


SET PEN 8 INTENSI1 


rY Point (*) 


410 


SET PEN 9 INTENSI1 


rY Point (*) 


420 


MAT Point= (0) 




430 


SET PEN 10 INTENS] 


[TY Point (*) 


440 


! 




450 


GESCAPE 3,2,Surpr] 


Lse(*) 



\ 



> Pens for labels 



/ 



The surprise palette relates to no known color system, but it demonstrates an important 
point— the non-dominant color map is arbitrary, and can represent any system you can 
dream up. You may want to write in four shades of blue, have any overlap of two pens 
be yellow, any overlap of three pens be orange, and any overlap of four pens be red. The 
following lines set up such a color map. 
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230 DIM Yellow(l: 1.1:3) ,0range(l: 1.1: 

240 RESTORE Colors 

250 READ Yellow (*). Orange (*) 



3) 



260 Colors: DATA .87. .87.0. 

270 ! 

280 

290 



1..47.0 



SET PEN INTENSITY .6.. 6.. 6 
SET PEN 1 INTENSITY 0.0. .4 

ouu oci rciN a nuiinsxii u,u,.o 

310 SET PEN 3 INTENSITY Yellow (*) 

320 SET PEN 4 INTENSITY 0,0.. 8 

330 SET PEN 5 INTENSITY Yellow(*) 

340 SET PEN 6 INTENSITY Yellow(*) 

350 SET PEN 7 INTENSITY Orange (*) 

360 SET PEN 8 INTENSITY 0.0.1 

370 SET PEN 9 INTENSITY Yellow (*) 

380 SET PEN 10 INTENSITY Yellow (*) 

390 SET PEN 11 INTENSITY Orange (*) 

400 SET PEN 12 INTENSITY YellowC*) 

410 SET PEN 13 INTENSITY Orange (*) 

420 SET PEN 14 INTENSITY Orange (*) 

430 SET PEN 15 INTENSITY 1.0.0 

440 ! 

450 GESCAPE 3. 2. Surprise (*) 



! Gray background 



0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 

1111 



Blue Plane 1 
Blue Plane 2 

Blue Plane 3 



- Blue Plane 4 



Backgrounds 

One nice feature available with non-dominant writing is backgrounds that aren't altered 
by your foreground. By restricting your foreground to pens through 7, a background 
written with pen 8 will not be damaged by writing over it. 

Complementary Writing 

The concept of complementary writing was introduced in the "Interactive Graphics" 
chapter, under "Making Your Own Echoes." On a color computer, the concept of a 
complementary pen is extended to deal with the 4-bit or 8-bit values in the color map. 
With the non-dominant writing mode enabled, negative pen numbers will be exclusively- 
ORed with the contents of the frame buffer. 

The complement occurs only for the bits which are one in the pen selector. Thus a pen 
selector of —6 would complement bits 1 and 2 of the frame buffer. If a 1 exists in a frame 
buffer location and a line is drawn over it with PEN —6, a 7 will now be in the location. 
Writing over the pixel with the same pen selector will return it to a 1. 
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Making Sure Echoes Are Visible 

It is important to understand that the complementing is of the frame buffer, not the color 
map. You are responsible for making sure that the complemented frame buffer values 
are visible against one another. Be careful of placing the same color in two locations on 
the color map that are complements of one another. If you pick one of them as an echo 
color and then try to use the echo over an area filled with the other value, you will not 
be able to see it. 



Effective Use of Color 

At the beginning of this chapter, it was pointed out that color is a very powerful tool, 
and that it was also easy to misuse. While it is beyond the scope of this book to provide 
an exhaustive guide to color use, a few comments can be made on using color effectively. 

This section will deal with seeing color first, to lay the groundwork. This is followed 
by a discussion on designing effective display images, since effective color use is almost 
impossible if the image is fundamentally unsound. 

After laying the groundwork, effective color use is discussed, from both the objective and 
subjective standpoints- 
Seeing Color 

The human eye responds to wavelengths of electromagnetic radiation from about 400 
nm to about 700 nm (4000 to 7000 angstrom.) We call this visible light. Visible light 
ranges from violet (400 nm) to red (700 nm.) If all the frequencies of visible light are 
approximately equally mixed, the result is called white light. 

The eye's ability to discriminate color is reduced as the light level is reduced. This 
means that the variety of colors perceivable at low light levels is smaller than the variety 

at higher light levels. 
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The eye is most sensitive to colors in the middle of the visible spectrum, a yellow-green 
color. The eye is least sensitive to the shorter wavelengths, which are at the blue end of 
the spectrum. Sensitivity to red is between that of yellow-green and blue. Two things 
seem to be associated with the sensitivity of the eye to various colors: 

• The eye can distinguish the widest range of colors in the yellow-green region, and 
the smallest variety of colors in the blue region. 

• The eye is most sensitive to detail in the yellow-green region. 

Why and how any of the above works is explained by color theorists. There are a large 
number of theories of color and all of them work for explaining the specific phenomena 
the researchers were studying when they developed the theory, but none of them seem to 
be able to explain it all. The list of references at the end of this chapter include several 
on how vision works. 

It's All Subjective Anyway 

One of the reasons that there are so many color theories is that no two people seem to 
perceive color the same way. In fact, the same person will many times perceive color 
differently at different times. In addition to the physiological and psychological variables 
in color perception, many environmental factors are important. Ambient lighting and 
surrounding color affect the perceived color tremendously. 

Mixing Colors 

If two distinct audio tones are played simultaneously, you will hear both of them. If the 
same area is illuminated by two or more different colors of light, you will not perceive the 
original colors of light, but rather a single color, and it will be not be one of the original 
colors. What you will perceive is called the dominant wavelength. 

The CRT uses three different colored phosphors (Red, Green, and Blue) and mixes 
various intensities of the resulting lights to produce one of XXXX colors at any point 
on the CRT. What you actually see is the resulting dominant wavelength. This is an 
additive color system. 

Mixing with pigments is a little different. Pigments in inks and paints absorb light. The 
idea with pigments is to subtract all but the color you want out of a white light source. 
This is a subtractive color system, and the primary colors are cyan, magenta, and yellow. 

The different mechanisms for mixing additive and subtractive colors make it difficult 
to reproduce images created with additive colors (like a CRT) in a subtractive medium 
(like a plotted or printed page.) Photographing the CRT is the best method currently 
available for color hard copy. This problem is discussed in more depth at the end of this 
chapter under "Color Gamuts" and "Color Hard Copy." 
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Designing Displays 

While the design of displays is not really a color topic, a few words about it are in order 
before we get into the effective use of color. If the design of an image is fundamentally 
unsound, all the good color usage in the world is not going to help it. 

Whenever you put an image on a CRT, you have created a graphic design. The design 
will either be a good one or a bad one, and if you know this, you have automatically 
increased your chances of creating a good design. If you are going to be creating a lot 
of displays, either in a lot of programs or in a single large program, you need a graphic 
designer. Many people have a natural talent for graphics —an ability to look at an image 
and tell whether it is graphically sound or not. If you don't have that talent (or feel you 
could use some help) there are two courses of action that might be productive for you; 
you can hire a graphics designer or become one. Renting one is expensive and becoming 
one is time-consuming, but if you are trying to communicate with users, you have to 
understand graphic design. While getting a degree in graphic arts may be impractical, a 
course or two in the field will prove very useful if you do much programming. 

While this book can't turn you into a graphic designer, a few simple hints may help you 
on your next program. 

The most important thing in communicating with people is to keep it simple. Don't try 
to communicate the total sum of human knowledge in a single image. It is much more 
effective to have several screens of information that a user can call up as required than 
a single screen so complicated that the user can't find what he wants on it. 

Try to redundantly encode everything in case one of the encoding methods fails. For 
example, if you color code information, use positional coding (the location of the 
information tells something about the nature of the information) too. Remember, the 
person reading the screen is probably not the person who wrote the program, and even if 
you are writing the program for yourself, you may forget how it works by the next time 
you try to use it. 

Another important thing to remember is to be consistent. Always try to place the same 
type of information in the same area of the CRT and use the same encoding methods for 
similar messages. Don't using flashing to encode important information on one display 
and then using inverse video for the same thing seven displays into the program. 
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Objective Color Use 

In spite of the subjectivity of color, there are some fairly objective things that you should 
know about color. Some of the things that can be done with color don't depend heavily 
on subjective interpretation. 

Color Blindness 

A fact of life that it is dangerous to ignore is that some people are color-blind. The most 
common form of color blindness is red-green color blindness (the inability to distinguish 
red and green). Avoid encoding information using red-green discrimination, or these 
people will have difficulty using the system. 

Color Map Animation 

One very powerful communication tool is motion. Some simple forms of animation can be 
achieved by changing the colors in the color map. This technique of color map animation 
is capable of adding simple motions to an image. Color map animation can be combined 
with frame buffer animation, which is based on creating images and storing them, to 
produce more dramatic animated effects. 

The basic technique of color map animation can be broken into 3 steps: 

1. Create the palettes (or starting palette.) 

2. Create the image. 

3. Load or modify the palette to add motion. 

A look at a simple program example will help show how color map animation works. 
Load and run "Marquee" from the Manual Examples disc. The moving color bands 
around the label are not redrawn to produce the motion — the color they represent is 
changed in the color map. Let's look at each section of the program to see how color 
map animation works. 

The first step is declaring some arrays. Most of the arrays will hold RGB pen values to 
use with SET PEN to define new color palettes. Black contains all black pens, so the 
image can be drawn without being seen. Message! is used to hold strings to print on the 
alpha screen while the image is being created. Pall through Pal4 are palette arrays that 
contain the color maps for the animation. New.order will be used to create the palette 
arrays. 

10 ! "MARQUEE" - a demo of color map animation 

20 ! 

30 DIM Black(0: 15, 1:3). Message! [80] 

40 DIM Pall(l:6,l:3),Pal2(l:6.1:3),Pal3(l:6,l:3).Pal4(l:6,l:3) 

50 INTEGER New_order(l :6) 
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The first three lines in the following block of code are used to put a message on the alpha 
screen for the person running the program. It takes several seconds for the program to 
set up the animation. Messages are printed on the screen to keep the viewer from getting 
bored. 

The next step is to create the palettes. The palette will be loaded into pens 1 through 
6. An initial palette is read into Pall from data statements. Pens 1 through 4 will be 
used for the actual animation. These are red, green, blue, and black. The black band is 
necessary to produce a strong illusion of motion. The other colors can be whatever you 
want. 

Pen 5 provides a stable background to label the marquee message in, and pen 6 is used 
for two purposes: 

• Each rectangle is framed with a fixed pen to provide reference points for the motion. 
Perception of motion is relative, and the illusion is much more pronounced when 
the rectangles are framed. 

• The message in the marquee is labeled in a fixed pen, to make it easy to read. 

Once the initial palette is loaded, MAT REORDER is used to rearrange the colors, 
rotating them by one position in each successive palette. Only the lower four pens are 
rotated. 



60 OUTPUT KBD USING "#,B" ;255,75 

70 ALPHA ON 

80 PRINT "What's that?" 

90 Pause_time=.084 

100 MAT Black= (0) 

110 RESTORE Pal 

120 READ PalK*) 

130 READ New_order(*) 

140 Pal:DATA 1.0.0. 0,1.0. 0.0.1. 

150 DATA 2.3.4.1.5.6 

160 MAT Pal2= Pall 

170 MAT REORDER Pal2 BY New_order 

180 MAT Pal3= Pal2 

190 MAT REORDER Pal3 BY New.order 

200 MAT Pal4= Pal3 

210 MAT REORDER Pal4 BY New.order 



Clear alpha screen 
Obvious 

Give them something to read 
Display each palette this long 
All pens black 
Read the right data 
Read the base palette 
Read the reordering vector 
0.0.0. 0.0.0. 0.1.1 



\ 

\ Copy preceding palette 

\ and reorder the lower 

/ four entries to rotate 

/ the colors for the 

/ lower four pens . 



Next, we set up the graphics system. It must be in the color map mode. The scaling was 
set up to be convenient for generating the border of bars. The scaling allows for softkeys 
to be included under the image. 
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220 GINIT 

230 PLOTTER IS CRT, "INTERNAL" ; COLOR MAP 

240 SET PEN INTENSITY Black(*) 

250 GRAPHICS ON 

260 WINDOW 0,30,-3,30 

270 PEN 6 



Set defaults 
Set color map 
All pens black 
Obvious 

Arbitrary scale 
Border and text pen 



A set of concentric rectangles are generated with the RECTANGLE statement, framed 
(EDGE) with pen 6 (one of the stable colors) and filled (FILL) with one of the pens (1 
through 4) that will be used for the animation. The inner rectangle is filled with pen 5 
to provide a stable background for the labels. Messages are read from data statements 
and printed on the screen to keep the viewer's attention. 



280 RESTORE Text 

290 FOR 1=1 TO 9 

300 AREA PEN I MOD 4+1 

310 IF 1=9 THEN AREA PEN 5 

320 MOVE (0+I*.5),0+I*.5 

330 RECTANGLE (30-1) ,30-1, FILL, EDGE 

340 IF I MOD 2 THEN !\ 

350 READ Message$ 

360 PRINT Message$ 

370 END IF !/ 

380 NEXT I 

390 Text:DATA "You're tired of the same old computer programs?" 

400 DATA "Ready for something new?", "Don't Move. " ."Don't Go Away 



Read the right data 
8 nested rectangles 
Use pens 1 through 4 
Inner rectangle for message 
Corner of the rectangle 
Draw a filled rectangle 
Print a message after 
every other rectangle; 
(Don't let them get 
bored while setting up.) 



Now we add the text in the marquee. The delay in line 530 is for dramatic effect. 

\ Set up for the labels 



410 


CSIZE 10 


420 


LORG 5 


430 


MOVE 15,17 


440 


LABEL USING "K" ; "Coming soon" 


450 


LABEL USING "K";"To a Model 36C" 


460 


LABEL USING "K";"Near You." 


470 


FOR I=-.04 TO .04 STEP .01 


480 


MOVE 15+1,22 


490 


LABEL USING "K" ; "The Tiger" 


500 


NEXT I 


510 


OUTPUT KBD USING "#,B";255,75 


520 


PRINT "It's time for:" 


530 


WAIT 2 


540 


OUTPUT KBD USING "#,B" ; 255, 75 



Location for labels 



> Labels in Marquee 



/ 



\ Make this label bold 

/ 

i 

Clear the Alpha screen 
Last text message 
Let them read it 
Clear the Alpha screen 
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The following code begins the actual animation. The palettes are loaded in succession 
to create the motion effect. Varying the value of Pause.time (defined in line 90) changes 
the speed of the apparent motion. Since each palette is a single positional rotation of 
the preceding palette, and the last palette looks like it is one rotation away from the first 
palette, we can simply loop back to the first palette. 



550 


LOOP 


Do forever 


560 


SET PEN 1 INTENSITY Pall(*) 


\ 


570 


WAIT Pause_time 


\ 


580 


SET PEN 1 INTENSITY Pal2(*) 


\ 


590 


WAIT Pause.time 


\ Load 


600 


SET PEN 1 INTENSITY Pal3(*) 


/ waiti 


610 


WAIT Pause.time 


/ 


620 


SET PEN 1 INTENSITY Pal4(*) 


/ 


630 


WAIT Pause.time 


/ 


640 


END LOOP 




650 


END 





Load the four palettes , 
waiting after each load. 



Study this program segment to conceptualize a technique for color animation. 



A color wheel is animated using a similar technique, except that the color map is 
calculated each time,. rather than being a pre-calculated set of values. 

9080 Make.color.pens : ! 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 



Wheel.hue ( 1 1) =Hue-4*Del_hue 

IF Wheel.hue (11) <0 THEN Wheel_hue(ll)=l+Wheel_hue(ll) 

Wheel.hue ( 10) =Hue-3*Del_hue 

IF Wheel.hue ( 10) <0 THEN Wheel.hue ( 10) =1+Wheel_hue( 10) 

Wheel.hue (9) =Hue-2*Del_hue 

IF Wheel.hue (9) <0 THEN Wheel.hue (9) =1+Wheel_hue (9) 

Wheel.hue (8) =Hue-Del_hue 

IF Wheel.hue (8) <0 THEN Wheel.hue (8) =1+Wheel_hue (8) 

i 

Wheel.hue (7) =Hue 
Wheel.hue (6) =(Hue+Del_hue) MOD 1 
Wheel.hue (5) =(Hue+2*Del_hue) MOD 1 
Wheel.hue (4) =(Hue+3*Del_hue) MOD 1 



In addition, the palette is loaded in ascending order (pen 1 first, then pen 2, etc.) to 
rotate the wheel in one direction and in descending order to rotate in the other direction. 

9230 IF Hue_up=True THEN 

9240 FOR Ij=4 TO 11 

9250 SET PEN Ij COLOR Wheel.hue (I j) , 1 , 1 

9260 NEXT Ij 

9270 ELSE 

9280 FOR Ij=ll TO 4 STEP -1 
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9290 SET PEN Ij COLOR Wheel_hue(Ij) , 1, 1 
9300 NEXT Ij 
9310 END IF 

The speed at which the wheel can be rotated is limited by the computation and by the 
fact that the HSL model is used. 

"RIPPLES" and "STORM" (on the Manual Examples disc) are two more examples of 
color map animation. 

3D Stereo Pairs 

The program "STEREO" on the Manual Examples disc demonstrates a method for 
viewing three-dimensional information on a two dimensional display device. The program 
produces a pair of images on the CRT. The two images form what is called a stereo pair. 
The stereo pair consists of an image representing the scene as it would be seen by the 
left eye and one representing the scene as it would be seen by the right eye. When the 
two images are viewed correctly, the brain merges them together into a single, three- 
dimensional image. 

One of the easiest ways to do that is to use different colored images and then put matching 
filters over the eyes. 

In "STEREO" , one image is written in red and the other in blue. A red filter should be 
placed over the left eye and a blue filter over the right eye. This is the same arrangement 
used for broadcasting stereo movies over NTSC (American) color television. 

The filters normally available for viewing television stereo transmissions are not very 
narrow, and some "ghosting" occurs (faint images intended for one eye visible in the 
other.) Narrower filters would actually be better. The CIE coordinate ranges for each 
of the phosphors are listed below: 

Table 5-5. 



Color 


X Range 


Y Range 


Red 
Green 
Blue 


0.620 through 0.640 
0.280 through 0.315 
0.150 through 0.153 


0.325 through 0.350 
0.600 through 0.673 
0.055 through 0.062 
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If you don't want to get into CIE coordinates, borrow a set of filters, and look for two 
that produce the images with the least ghosting from the other color. Those are the two 
you want to use. 

The images are written in a non-dominant mode, with a palette set up to allow the 
intersection of the two images to be visible in both eyes. 

The program could be improved by using true perspective, instead of view-plane 
projection to produce the images. 

Subjective Color Use 

Choosing appropriate colors for a program to use can be tricky, and constitutes a 
significant part of the job of a good graphic designer. In the final analysis, it is a largely 
a matter of trying combinations until you come up with a set of colors that look good 
together. If your application is complex, it will be well worth your while to consult with 
a graphic designer about the color scheme and layout of information displays for your 
program. There are, however, a few fairly fundamental things to remember in designing 
your programs. 

Choosing Colors 

First, and probably most important, is to use color sparingly. Color always has a 
communication value and using it when it carries no specific information adds noise 
to the communication. 

Use some method for selecting the colors— one of the best is a color wheel (see the SET 
PEN entry in the BASIC Language Reference). 

• Try varying the luminosity or saturation of a color and its complement (opposite 
it on the color wheel). 



• 



Try color triplets (three equally-spaced colors) and other small sets of colors equally- 
spaced around the color wheel. 



Pastels (less than fully-saturated colors) tend not to clash. 

Give careful attention to your background color. Remember that a filled area can become 
the background color for a portion of the image on the CRT. 

• If you are using a small number of colors, use the complement of one of them for 
the background. 
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• If you are using a large number of colors, use a gray background. 

If two colors are not harmonious, a thin black border between them can help. 

Use subtle changes (such as varying the saturation or luminosity of a hue) for differenti- 
ating subtly different messages and major changes (such as large changes in the hue of 
saturated colors) to convey major differences. 

Most of all, think and experiment. The final criteria is "Does this display communicate 
the message?" 

Psychological Color Temperature 

Temperatures ranging from cool to hot are associated with colors ranging from blue to 
red (ice blue— fire red). This is actually the opposite of physical reality, where the higher 
the temperature, the shorter the wavelength (blue is a black body radiation of about 
7600° K while red is about 3200° K) but this is what people perceive as the relation 
between temperature and color. This is probably because people very seldom deal with 
the high temperatures and associate the blues with non-temperature related natural 
phenomena (oceans and ice). If you are trying to portray temperature, electrical field 
strength, stress, or some other continuous physical system, using the psychological color 
temperature can serve as a useful starting point for color coding the values. 

Cultural Conventions 

When trying to use color for communicating, cultural conventions are useful. Red is 
widely associated with danger in most western cultures, giving extra emphasis to a 
flashing red indicator. By the same token, a flashing green indicator would be less 
effective for communicating an out of range value in a system. In any specific application, 
it is important to understand the color associations that are common for the group using 
the application. 
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Color Spaces 

If you ask a broadcast engineer what the primary colors are, he will probably tell you 
"Red, green, and blue." If you ask a printer what the primary colors are, he will probably 
tell you "Cyan, magenta, and yellow." If you ask a physicist, he will probably smile and 
say "That's not the right question." Let's see if we can get enough information about 
color systems to ask the right question. 

Primaries and Color Cubes 

The reason is that there are two sets of color primaries. Red, green and blue are additive 
primaries. Cyan, magenta, and yellow are subtractive primaries. Each of these sets of 
primaries can be used to construct what is referred to as a color cube. These are called 
the RGB color cube and the CMY color cube. 

Each of the color cubes can be used to describe a color space. Color spaces are 
mathematical abstractions which are convenient for scientific descriptions of color. This 
is because the color spaces provide a coordinate system for describing colors. Once you 
have a coordinate system, you can talk about and manipulate colors mathematically. 

In addition to the color cubes, other color coordinate systems exist. While there are 
many, we will only look at HSL Color Space, because it is one of the available color 
models on your color computer. First, the cubes. 

The RGB Color Cube 

The RGB color cube describes an additive color system. In an additive color system, 
color is generated by mixing various colored light sources. (Color mixing is discussed in 
"Effective Use of Color," above.) 

The origin (0,0,0) of the RGB color cube is black. Increasing alues of each of the additive 
primaries (Red, Green, and Blue) move towards white (the opposite corner of the cube.) 
The maximum for all three colors is white (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. 

The RGB color cube can be accessed directly, in 16 steps (4-plane systems) or 256 
steps (8-plane systems) for each axis, by the INTENSITY option for the color definition 
statements (SET PEN, AREA INTENSITY, and AREA COLOR). 
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The CMY Color Cube 

The CMY color cube represents a subtractive color system. In a subtractive color system, 
colors are created by subtracting colors out of a pure white (containing all colors equally) 
light source. This most often occurs when light is reflected off of surfaces containing or 
coated with pigments. This happens in printing and painting, among other operations. 

The origin (0,0,0) for the CMY color cube is white. This represents all the colors in a 
perfect white (containing all colors) light source being reflected by a white (reflecting all 
colors) surface. Increasing values of each of the subtractive primaries (Cyan, Magenta, 
and Yellow) move towards black (the opposite corner of the cube). The maximum for all 
three colors is black (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. 

Converting Between Color Cubes 

It is sometimes useful to convert from one color coordinate system to another. 

The CMY color cube can be converted to RGB coordinates (or RGB to CMY) by 
producing a color triplet (a 1 by 3 matrix) containing the CMY coordinate and 
subtracting this from a color triplet representing a unit color vector (1,1,1). This 
operation represents rotating the color cube to bring the CMY black (1,14) to the RGB 
black (0,0,0). 

The following program lines convert the RGB color map into CMY values. This is done to 
provide separations of an RGB image into CMY values for printing (remember— printing 
is a subtractive process). Since the system is color mapped, you only need to convert 16 
(4-plane systems), 64 (6-plane systems) or 256 (8-plane systems) values — remember, the 
frame buffer values only point to a register in the color map. 

• The contents of the color map are copied into 01d_colors using a GESCAPE in line 
14680. 

• Each color triplet in the color map is copied into Rgb.point in lines 14720 through 
14740. 

• The actual RGB to CMY conversion is done in line 14750. 

• The CMY triplet is copied into the CMY array in lines 14760 through 14780. 
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14660 Convert.colors : ! 

14670 ALPHA ON 

14680 GESCAPE 3,2;01d_colors(*) 

14690 PRINT " OLD COLORS NEW COLORS" 

14700 PRINT "Index RGB C M Y" 

14710 FOR 1=0 TO 15 

14720 FOR J=l TO 3 

14730 Rgb.point (J) =01d_colors (I , J) 

14740 NEXT J 

14750 MAT Cmy_point= Uni t .point -Rgb_point 

14760 FOR J=l TO 3 

14770 New_color8 (I , J) =Cmy_point (J) 

14780 NEXT J 

14790 PRINT USING Image$ ; I .Rgb.point (1) .Rgb.point (2) ,Rgb_point (3) , 

Cmy_point(l) ,Cmy_point(2) ,Cmy .point (3) 

14800 NEXT I 

14810 Convert ed=True 

14820 RETURN 

A subprogram can be used to provide drivers to produce monochromatic gray-scale dis- 
plays representing the cyan, magenta, and yellow contents of the color map (and a sepa- 
rate black image that printers like to have around). The monochromatic representation 
is easier to photograph than the actual color content. 

This color conversion just described is mathematical. If you really want to print it, you 
will have to work with a printer to calibrate the frames you are giving him against a good 
color photo of the actual image. The printer may also want the CMY information to be 
inverted for his process. This can be achieved photographically or by subtracting each of 
the CMY values from one during the color map conversion (this is an element-by-element 
subtraction, not a matrix subtraction). The conversion can be achieved easily with the 
MAT statement: 

14805 MAT New.colors = (1) - New.colors 



5-34 Color Graphics 



HSL Color Space 

The color cubes are very useful for working with physical systems that are based on color 
primaries. They are not always intuitive, though. 

The HSL color cylinder resides in a cylindrical coordinate system. A cylindrical 
coordinate system is one in which a polar coordinate system representing the X-Y plane 
is comuineu witu a zj-axis irom a rectanguiar cooruinate system. 

• The coordinates are normalized (range from through 1). 

• Hue (H) is the angular coordinate. 

• Saturation (S) is the radial coordinate. 

• Luminosity (L) is the altitude above the polar coordinate plane. 
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BLACK 
PLANE 



Figure 5-3. HSL Color Cylinder 



The cylinder rests on a black plane (L = 0) and extends upward, with increasing altitude 
(Luminosity) representing increasing brightness. Whenever luminosity is at 0, the values 
of saturation and hue do not matter. 

White is the center of the top of the cylinder (L=l, S=0). The center line of the cylinder 
(S = 0) is a line which connects the center of the black plane (L=0, S=0) with white 
(L=l, S=0) through a series of gray steps (L from to 1, S=0). Whenever saturation 
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is 0, the value of hue does not matter. The outer edge of the cylinder (S=l) represents 
fully saturated color. 



SATURATION = 1 
LUMINOSITY = 




Figure 5-4. HSL Color Specification 

Using the above drawing (HSL Color Specification,) hue is the angular coordinate, 
saturation is the radius, and luminosity is the altitude of the desired color. 
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HSL to RGB Conversion 

Converting from HSL to RGB is simple. Do a SET PEN for the HSL point you want and 
then read it out of the color map with a GESCAPE. You are limited to the resolution 
of the color map, but it is very simple. The following line reads the color map into 
01d_colors. 

14680 GESCAPE 3,2;01d_color8(*) 

RGB to HSL conversion is not described, due to the fact that it is a one-to-many 
conversion (the entire bottom plane of the HSL color space is represented by a single 
point in the RGB color space, and hue is indeterminate if saturation equals 0). 

Color Gamuts 

The range of colors a physical system can represent is called its color gamut. Color 
gamuts are important when you want to convert between different physical systems, 
because the source system may be able to produce colors the destination system cannot 
reproduce. An exhaustive treatment of color gamuts is beyond the scope of this book. 
However, here are some rules of thumb: 

• The color gamuts for CRTs and photographic film are not the same, but are fairly 
close. If you are lucky, you can photograph the CRT and catch it on film. It may 
take more than one exposure, so be careful and bracket everything with several 
exposures. 

• The color gamut for printing is significantly smaller than that of either photographic 
film or of a CRT. The fact that you have a picture of a CRT does not mean you 
can hand it to a printer and get a faithful reproduction of it. 

• The color gamut of a plotter is much smaller than that of a CRT. You have to 
create images with the limitations of a plotter in mind if you intend to reproduce 
them on a plotter (see "Plotting and the CRT," below.) 

The different color gamuts available are not a problem unless you forget the differences 
and try to act like all physical systems have the same gamut. Think ahead if you have 
to reproduce images— it will save a lot a trouble. 
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Color Hard Copy 

It may seem strange to find "Color Hard Copy" a topic under "Color Spaces." The 
reason it is here is that color hard copy represents a translation between color systems, 
and many of the problems in color hard copy arise from the fact that the color gamuts 
available to the CRT and the hard copy device are different. 

There are three basic ways to get a color hard copy of what is displayed on a color 
computer: 

• Take a picture of the CRT. 

• Re-run the program that generated the image with an external plotter selected as 
the display device (PLOTTER IS 705."HPGL"). 

• Use the PaintJet® Utility. 

The first method is the easiest and can capture (usually) whatever is on the CRT, 
regardless of what colors are used (see "Color Gamuts," above.) The second requires 
setting up the color map to match the pens in a plotter, and is not as likely to capture 
what you see on the screen. The third method requires the PaintJet ^^ color printer 
and the GDUMP.C Utility (on the Utilities 2 Disc). See the "BASIC Utilities Library" 
section of the Istalling and Maintaining the BASIC System manual for information about 
GDUMP.C. 

Photographing the CRT 

Photography is an art, not a science. Capturing images off a CRT is relatively 
straightforward, but sometimes unpredictable due to the different color gamuts available 
for film and the CRT. The following guidelines will provide a starting point. If your 
images are not "typical" (whatever that means) you may have to go back and re- 
photograph some of them. All the CRT images in this manual were captured using 
these guidelines. 

• Use ISO 64 Color film. (The color photos in this manual were taken on Kodak 
Ektachrome 64.) 

• Set up your equipment in a room that can be darkened. It will have to be darkened 
for the one-second exposure. 

• Use a telephoto lens (the longer the better, up to about 500mm). This minimizes 
the effects of the curvature of the CRT. 

• Use a tripod. 

• Darken the room and take a one-second exposure. 

• Bracket the aperture around f5.6. (One stop above and below.) 
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Plotting and the CRT 

There are two basic reasons the CRT is hard to capture on a plotter. 

• The CRT is an additive color device and a plotter is a subtractive color device. 

• The color gamut of the CRT is much larger than that of the plotter. 

The conversion from additive to subtractive colors is not a huge problem if the plot 
is a simple line drawing with few intersections and area fills. If the plot is complex, 
especially with lots of intersections and overlapping filled areas, the plot is much less 
likely to capture the display image accurately. 

A possible technique described below purposely limits the color gamut of the CRT to give 
the plotter some chance of capturing it. 

To set up the color map and plotter to match one another: 

• Set your background to white (SET PEN INTENSITY 1,1.1). 

• Set up pens matching the color map colors in slots 1 through 8 in the same order 
they are presented in the default color map listed under "Default Colors." 

• Use pen selectors from 8 through 15 to select your pens. 

• Run the program with the color mapped CRT as the display device, modifying it 
as necessary to produce the image you want on the CRT. 

• Re-run the program with the plotter as the display device. You will need to subtract 
8 from the pens to properly select the set available on the plotter. 

While it is possible to get some idea of the plot that will be produced on the plotter, 
don't be surprised if they don't look exactly the same. Colors on a CRT are different in 
source and form from colors on a plotter, as described under "Seeing Color," earlier. 
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Color References 

The following references deal with color and vision. Texts that serve as useful introduc- 
tions to the topic are starred. 

* Cornsweet, T., Visual Perception. New York: Academic Press, 1970 

Farrell, R. J. and Booth, J. M., Design Handbook for Imagery Interpretation Equipment 
(AD/A-025453) Seattle: Boeing Aerospace Co., 1975 

Graham, C. H., (Ed.) Vision and Visual Perception New York: J. Wiley & sons, Inc., 
1965 

* Hurvich, L. M., Color Vision: An introduction. Sunderland, MA: Sinauer Assoc, 1980 

Judd, D. B., Contributions to Color Science (Edited by D. MacAdam; 545) NBS special 
publication Washington: U. S. Government Printing Office, 1979 

* Rose, A., Vision: human and electronic. New York: Plenum, 1973 
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Data Display and Transformations 

In this chapter, various more advanced topics will be briefly discussed. You are 
encouraged to load these example routines and try them out after reading the discussion. 
No program listings will be provided, but the programs/subprograms are on the Manual 
Examples Disc which came with your BASIC software. Every file has at least some 
code which is general-purpose enough that you can copy program segments into your 
own applications. The files which are programs can be loaded with a LOAD command. 
The files which just contain subprograms which can be bodily moved into an application 
program are in ASCII format; they must be gotten with a GET command. Some of the 
following routines will work on either monochromatic (black-and-white) or color CRTs, 
but a few will only work on a color computer. These will be noted as such. 

There are several external routines which are called by the following subprograms. They 
are short, convenient utility subprograms. Listings of these and other utility routines are 
provided in the "Utility Routines" chapter. 

Note that the subprograms stored on the Manual Examples Disc and the utility subpro- 
grams provided in the "Utility Routines" chapter were included for your convenience. 
You would need to create applications programs (files of type PROG) to use them. 
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Bar Charts and Pie Charts 

The bar chart routine, which may plot on either a CRT or a plotter, is a general purpose 
routine. 

Below are two sample (random) outputs from the bar chart program. The first shows a 
"comparative" bar chart; that is, a bar chart in which comparisons between individual 
bars may easily be made. The second shows a "stacked" bar chart; that is, a bar chart 
in which bars from the same group are stacked one on top of the other, so that the sums 
of the bars in each group may be compared. 
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Figure 6-1. Typical Bar Charts 
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Figure 6-1. Typical Bar Charts (cont.) 

The pie-chart subprogram (on the Manual Examples Disc) can use both the color map 
and area fills. This program may be loaded from the Manual Examples Disc from the 
file named Pie_Chart. The program sends random data to the subprogram. 
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Figure 6-2. Output of "Pie.Chart" Program 

Study the program as you require. 
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Two-Dimensional Transformations 

When you want a two-dimensional figure to be drawn after having been scaled, translated, 
rotated, or sheared, you need to know about the generalized 2D transformations. The 
purpose of this manual is not to go into theoretical discussions in depth, but some 
excellent sources will be cited 1 . 

For 2D graphics, there needs to be a three-column data array: the first two columns 
are the X and Y coordinates, and the third column is something necessary to keep the 
mathematics working correctly (refer to the cited works for further discussion). 

The transformation matrices for scaling, translation, rotation, and shearing are defined 
as follows. They all start out as an identity matrix and are modified thus: 

2D Scaling Transformation Matrix 



fSx 





0) 





Sy 





.0 





1 . 



Sx is the scaling factor in the X direction, and Sy is the scaling factor in the Y direction. 
This means that you can stretch or compress the image along both axes independently. 

2D Translation Transformation Matrix 



1 





°1 





1 





T x 


T v 


1 , 



Tx and Ty are the translation factors in the X and Y directions, respectively. Translation 
(moving the image) can take place in the X and Y directions independently. 



For an in-depth discussion into many areas of computer graphics, we recommend these books: 

Principles of Interactive Computer Graphics, William M. Newman and Robert F. Sproull, 2nd Edition, 
McGraw-Hill, 1979. 

Fundamentals of Interactive Computer Graphics, J. D. Foley and A. Van Dam, Addison- Wesley, 1982. 

Mathematical Elements for Computer Graphics, David F. Rogers and J. Alan Adams, McGraw-Hill, 1976. 

Seeing: Illusion, Brain, and Mind, John P. Frisby, Oxford University Press. 
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2D Rotation Transformation Matrix 



COS0 


— sin# 





sin0 


cos0 











1 



This allows you to rotate the image about the origin. is the angular distance through 
which the object is to be rotated, and it is expressed in current units. If you want to 
rotate the object about some other point than the origin, you must translate that point 
to the origin, do the rotation, and translate it back to the original point. 

2D Shearing Transformation Matrix 



1 


Shy 





Sh x 


1 











1 



Shearing is translating different parts of the image different amounts, depending on the 
value in the other axis. For example, if your data array is the outline of a capital "R" , 
shearing in the X direction with a positive value would "italicize" it; that is, shift the top 
of the letter farther to the right than the middle of the letter. It would become slanted. 

These transformations are applied to the data array by a matrix multiplication (see the 
MAT statement in the BASIC Language Reference manual). To see these operations in 
action, load the program Lem2D from the Manual Examples disc. 

The different transformations are selected by pressing "T" for translation, "R" for 
rotation, "S" for scaling, and "H" for shearing. Rotating the knob controls the values 
put into the transformation matrix. Study the program and accomodate techniques to 
your system and situation. 
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Three-Dimensional Transformations 

In a logical extension of the two-dimensional transformations, the three dimensional 
transformations have four columns. Again, this allows the matrix multiplies to work. 

3D Scaling Transformation Matrix 



rs x 

s y 


,0 


(T 

S z 
1. 


Translation Transformation Ma 


' 1 
1 


lT x T y 






1 
T z 1 



When rotating in three dimensions, there are three different axes about which rotation 
can occur. When rotating points about the X-axis, the Y and Z coordinates of the points 
change, but not the X coordinates. When rotating about the Y-axis, X and Z coordinates 
change, but not Y coordinates. When rotating about the Z-axis, X and Y coordinates 
change, but not Z coordinates. These characteristics become apparent after seeing how 
the rotation matrices are constructed. 

3D Rotation Transformation Matrices 

Rotation about X-axis 



( 1 








°1 





COS0 


— sin# 








sin0 


COS0 





lo 








1 J 
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Rotation about Y-axis 



cos0 
1 

-sin0 



sin# 
1 

COS0 




(T 


1, 


Rotation about Z-axis 




cos# — sin# 

sin# cos# 








1 



(T 


1, 



Again, in rotation about an axis in three dimensions, the values in that axis are not 
changed, only the values in the other two axes are changed. For example, in rotation 
about the first axis (the X-axis), the first row and first column of the matrix are straight 
from the identity matrix and therefore do not cause a change in the X-values of the 
resultant matrix. 

3D Shearing Transformation Matrix 



1 


Syx 


^zx 


(T 


xy 


1 


S Z y 





xz 


Sy Z 


1 














1. 



This shearing transformation is a little bit more tricky. Sxy is the shear in the X direction 
which is proportional to Y, and Sxz is the shear in the X direction which is proportional 
to Z. The other values work in a similar manner. As you can see, with 3D shearing, the 
amount of shear is dependent upon the values in both the other dimensions. 
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Surface Plotting 

There are three different methods included on the Manual Examples Disc for plotting a 
surface; that is, plotting a two-dimensional array the value of whose elements represent 
the third dimension at that point. Each method will display the same data so that you 
can get a feel for the advantages and disadvantages of each method of display. The data, 

Q 1fM"lv1An orroir 10 ron/iAm ^TnAnntQino" q«H 'Srall/viro" an si 1s\/t1ra oAmaiirliof liL-n r\\r\ V*illo 

t* .1. W /"\ .1. V/V/ U11UJ) IO 1 LU1UV111 lUVLUlUUlllU CU1U TU11V/JO CU.J.VI XWXYO CV/XliV TV XXCbt 11 -E\*^ U1U IJUIO 

worn smooth by erosion. 

Contour Plotting 

A contour map is a display of a surface from directly above the surface, from an infinite 
distance. "Infinite" in this context merely means that no perspective effects are included. 

The subprogram is passed the surface array, the minimum and maximum contour levels, 
the contour interval, and three logical variables. These specify 

1. whether or not you want the local minima and maxima noted on the output, 

2. whether or not you want two lines of "stats" ; informational lines concerning array 
size and contour intervals, and 

3. whether or not the plot is to be sent to a CRT. For more information, see the file 
Contour on the Manual Examples Disc. 

Both the following plots were made with this subprogram. Only the contour interval was 
changed between the first and second plots. The subprogram was instructed to note the 
local highs and lows, and also to print the array information at the bottom of the plot. 



Data Display and Transformations 6-9 




Rrray has 100 rows and 100 columns. 
Minimum: -50; Maximum: 50; Contour interval: 5. 



Figure 6-3. Output of "Contour" Subprogram 
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Array has 100 rows and 100 columns. 
Maximum: 50; 



Contour Interval 



Figure 6-4. More "Contour" Output 

Gray Maps 

This concept goes back to the days before graphics output devices were in widespread use, 
and line printers were called upon to plot pictures. Basically, the darkness of a character 
printed by the printer was proportional to the range in which an element in the array fell. 
The darkness was caused by overstriking characters in various combinations to produce 
different amounts of black ink on the page. 

The same concept can be used with graphics output devices. The output looks better, of 
course, because of the increased resolution of graphics output devices over line printers, 
but the overall result is similar. A gray map can be output to a monochrome or color 
CRT, and both kinds are presented here. First, the monochrome version. The probability 
of a pixel being turned on is proportional to the value of the array at that point. To 
make computation easier, the routine scales the array such that the lowest point becomes 
zero, and the highest point becomes one. Therefore, the light areas are the high points, 
the darker areas are the low points, and the average brightness of an area on the screen 
is proportional to the value in the array at that point. 
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The program is called Gray.Map on the Manual Examples Disc. 




Figure 6-5. Output of "Gray.Map" Program 

Next is a Gray Map as drawn on a color-mapped display. It must be a color-mapped 
display (and not an external color monitor interfaced with an HP 98627A) because the 
color-map capabilities are needed. The main difference is that instead of the probability 
of a pixel being turned on being dependent on the array value, all pixels are turned on, 
and it's the color of each pixel which is dependent on the array value. 

In Figure 6-6, Pen is not redefined, as it is the background color, but pens 1 through 
15 are defined to be varying shades of gray: 

FOR Pen=l TO 15 

SET PEN Pen COLOR 0,0. (Pen-1)/14 
NEXT Pen 

Figure 6-7 makes the difference between the highs and the lows more obvious: 

FOR Pen=l TO 15 

SET PEN Pen COLOR 2/3+1/3* (Pen>8) ,ABS(9-Pen) , .7 
NEXT Pen 

This will cause the levels below the main level to be shades of blue (hue=2/3) and shades 
above the main level to be shades of red (hue=2/3+l/3=1.0). 
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Figure 6-6. "Gray.Map" on a Color-Mapped Display 




Figure 6-7. "Gray.Map" with Varying Hues 
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Surface Plot 

Another way to look at an array is to look at it from some other angle than straight 
above. The following routine allows you to look at the surface from above or below. 
Again, this is the same data as before; notice that the highs and lows are in the same 
places. 

This routine (found on the file Surface on the Manual Examples Disc) functions by 
plotting each row of the array as one line on the plotting device. The points of each 
line are defined to be an offset (determined by which row is currently being plotted 
and the "height" from which you are looking at the surface) plus the value of the array 
element you're on. A height array is maintained, the first row of which is the highest 
point encountered thus far for that column number, and the second row contains the 
lowest points encountered thus far. If a point is higher than the highest point seen so 
far, it is visible, and then it becomes the new highest point. The low points are similarly 
maintained. 

The parameter Front.edge and Back. edge are the height, in GDUs, that the front edge 
and the back edge of the array are to be from the bottom of the plotting surface. If 
Front_edge is less than Back_edge, more of the top surface will be visible. Conversely, if 
Front.edge is greater than Back. edge, more of the bottom surface will show. 
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In the first of the three plots, the variable Opaque is passed to the subprogram with a 
value of (false). Therefore, the surface is treated as if it were transparent, and no 
hidden lines are removed. This makes the surface hard to interpret because you cannot 
tell which surface is supposed to be closer to you; everything is visible. In the next two 
plots, Opaque is 1 (true), and hidden lines are removed. In the first of the two opaque 
surfaces, the top is more visible; in the second, the bottom is more visible. 




Figure 6-8. "Surface'' Program's Output 
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Figure 6-9. "Surface" with Opaque=l (Top Visible) 




Figure 6-10. "Surface" with Opaque=l (Bottom Visible) 
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This chapter consists of several utility routines which are called by some of the subpro- 
grams in the "Data Display and Transformation" chapter. Others are included which 
would be convenient for many graphics applications. A small amount of discussion is 
included before the routine, if it is necessary. 

Drawing Arcs 

Note that only two parameters are required. Everything from Radius on is optional. The 
two ON. ..GOTO statements (lines 130 and 200) take care of the number of parameters 
passed, assigning default values for only those parameters which were not passed by the 
calling context. 

10 ! *********************************************************************** 

20 Arc: SUB Arc (X,Y, OPTIONAL Radius., Start., End_,Intervals_,Penup_, Aspect.) 

30 ! This subroutine draws an arc of a circle with the center at X.Y and a 

40 ! radius of "Radius". The arc starts at a position of "Start" degrees 

50 ! and ends at "End" degrees and has a total of "Interval" individual 

60 ! line segments. The greater "Intervals" is. the more rounded the arc 

70 ! will look, but also the longer the routine will take to finish. If 

80 ! "Penup" is non-zero, the pen will be picked up before the arc is 

90 ! started. If not, it will be left down (assuming it was down before). 

100 ! Often you want to draw a straight line to the arc you are starting 

110 ! to draw. If "Radius" is positive, the arc will proceed counter- 

120 ! clockwise; if negative, clockwise. 

130 ON 9-NPAR GOTO 140,150,160.170,180,190,200 ! ON <maxparms>+l-NPAR 

140 Aspect=Aspect_ 

150 Penup=Penup_ 

160 Interval8=Intervals_ 

170 End=End_ 

180 Start=Start_ 

190 Radius=Radius_ 

200 ON NPAR-1 GOTO 210,220,230,240,250,260.270 ! NPAR+l-<req. parms> 

210 Radius=l. 

220 Start=0 . 

230 End=360. 

240 Intervals=INT( (End-Start )/5.) 

250 Penup=l 

260 Aspect=l . 

270 DEG 

280 IF Penup THEN PENUP 

290 IF (Radius>0.) AND (End<=Start) THEN End=End+360. 

300 IF (Radius<0.) AND (End>=Start) THEN End=End-360. 

310 Step= (End-Start) /Intervals 
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320 Radius=ABS (Radius) 

330 FOR I=Start TO End STEP Step 

340 PLOT X+Radius*Aspect*COS(I) ,Y+Radius*SIN(I) 

350 NEXT I 

360 SUBEND 

Simulating Wide Pens 

With the next two subprograms, you can draw pictures that will look like your plotter 
pen is extremely wide. Theoretically, you could specify that your pen is wider than the 
whole plotting surface, although not much of a picture would result. 

10 ! ********************************************************************* 

20 Fat.line: SUB Fat.line (XI ,Y1 ,X2,Y2, Thickness, Delta) 

30 ! This routine makes a line from point XI, Yl to point X2.Y2 simulating a 

40 ! pen whose tip is width "Thickness" . Delta is the approximate (it may 

50 ! be tweaked) distance between actual lines. The smaller delta is, the 

60 ! darker and more accurate the simulation will be, but the execution 

70 ! time will suffer. 

80 DEG 

90 Distance=SQR( (X2-X1) "2+ (Y2-Y1) ~2) 

100 Angle=FNAtan(Y2-Yl.X2-Xl) 

110 Co8_angle=C0S (Angle) 

120 Sin_angle=SIN (Angle) 

130 Perp=Angle+90 

140 Cos_perp=COS(Perp) 

150 Sin_perp=SIN(Perp) 

160 Delta=Thickness/INT(Thickness/Delta) 

170 Semithick=Thickness/2 

180 Direction=l 

190 PENUP 

200 FOR Y=-Semithick TO Semithick STEP Delta 

210 Dx=SQR(Semithick"2-Y-2) 

220 IF Direction THEN 

230 PLOT Xl+Y*Co8_perp-Dx*Cos_angle,Yl+Y*Sin_perp-Dx*Sin_angle 

240 PLOT X2+Y*Cos_perp+Dx*Cos_angle,Y2+Y*Sin_perp+Dx*Sin_angle 

250 ELSE 

260 PLOT X2+Y*Cos_perp+Dx*Cos_angle,Y2+Y*Sin_perp+Dx*Sin_angle 

270 PLOT Xl+Y*Cos_perp-Dx*Cos_angle,Yl+Y*Sin_perp-Dx*Sin_angle 

280 END IF 

290 Direction=NOT Direction 

300 NEXT Y 

310 SUBEND 

10 ! *********************************************************************** 
20 Fat.arc: SUB Fat.arc (X.Y, Radius, Thetal ,Theta2,Delta_theta, Thickness, Delta) 

30 ! This routine makes an arc centered around point X.Y and radius Radius 

40 ! going from Thetal to Theta2 by Delta_theta, simulating a plotter 

50 ! pen whose tip is width "Thickness" . Delta is the approximate (it may 

60 ! be tweaked) distance between actual lines . The smaller delta is , the 
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70 ! darker and more accurate the simulation will be, but the execution. 

80 ! time will suffer. 

90 DEG 

100 Semithick=Thickness/2 

1 10 Delta=Thickness/INT (Thickness/Delta) - 1 . E- 13 

120 Perpl=Thetal+90 

130 Cos_perpl=COS(Perpl) 

140 Sin_perpl=SIN(Perpl) 

150 Perp2=Theta2+90 

160 Cos_perp2=C0S(Perp2) 

170 Sin_perp2=SIN(Perp2) 

180 FOR R=Radius-Semithick TO Radius+Semithick STEP Delta 

190 Dx=SQR(Semithick~2- (R-Radius) "2) 

200 IF Direction THEN 

210 PLOT X+R*COS(Thetal)-Dx*Cos_perpl,Y+R*SIN(Thetal)-Dx*Sin_perpl 

220 FOR Theta=Thetal TO Theta2 STEP Delta.theta 

230 PLOT X+R*COS(Theta),Y+R*SIN(Theta) 

240 NEXT Theta 

250 PLOT X+R*COS (Theta2) +Dx*Cos_perp2 , Y+R*SIN (Theta2) +Dx*Sin_perp2 

260 ELSE 

270 PLOT X+R*C0S (Theta2) +Dx*Cos_perp2 . Y+R*SIN (Theta2) +Dx*Sin_perp2 

280 FOR Theta=Theta2 TO Thetal STEP -Delta.theta 

290 PLOT X+R*COS (Theta), Y+R*SIN (Theta) 

300 NEXT Theta 

310 PLOT X+R*COS (Thetal) -Dx*C08_perpl , Y+R*SIN (Thetal) -Dx*Sin_perpl 

320 END IF 

330 Direction=NOT Direction 

340 NEXT R 

350 SUBEND 



Utility Routines 7-3 



Housekeeping 

The next few subprograms deal with the humdrum housekeeping chores that need to be 
done to start and/or end a plot. 

10 ! **************************##**************************#*****#*#***** 

20 Plotter.is: SUB Plotter_is(Crt) 

30 ! This subroutine defines the plotting device to be used. 

40 Crt=FNAsk("Do you want the plot on the CRT?" , "YES") 

50 IF Crt THEN 

60 GINIT 

70 PLOTTER IS CRT, "INTERNAL" 

80 ELSE 

90 ON TIMEOUT 7.5 GOTO 140 

100 GINIT 

110 PLOTTER IS 705,"HPGL" 

120 OFF TIMEOUT 7 

130 SUBEXIT 

140 Message ("I've tried for 5 seconds to raise select code 7; no answer. 

Defaulting to CRT.") 

150 OFF TIMEOUT 7 

160 GINIT 

170 PLOTTER IS CRT, "INTERNAL" 

180 Crt=l 

190 END IF 

200 SUBEND 
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This next routine forces the user to set PI and P2 (the lower-left and upper-right corners 
of the plotting surface, respectively) before the PLOTTER IS statement is executed. The 
reason this is necessary is that the PLOTTER IS statement reads PI and P2, which 
define the hard-clip limits. Therefore, if they are set after the PLOTTER IS is executed, 
they will be ignored, and the old values (the ones in effect when the PLOTTER IS was 
executed) will be used. 

1Q { *********************#**********♦****************#******#************ 

20 Load.paper: SUB Load.paper (OPTIONAL Orientation.!) 

30 ! This prompts the user to put the paper in the plotter in the 

40 ! orientation, and to define the corners of the paper, BEFORE the 

50 ! PLOTTER IS statement is executed. 

60 IF NPAR=0 THEN 

70 Orientation$="" 

80 ELSE 

90 Orientation$=0rientation_$ 

100 END IF 

110 SELECT UPC$ (TRIMS (Orientation!)) 

120 CASE "H" 

130 Orient$=" horizontally" 

140 CASE "V" 

150 Orient$=" vertically" 

160 CASE ELSE 

170 Orient$="" 

180 END SELECT 

190 BEEP 

200 DISP "Put the paper in the plotter" ; Orient!; " , define the corners, and hi 

t 'CONT'." 

210 PAUSE 

220 DISP 

230 GINIT 

240 PLOTTER IS 705,"HPGL" 

250 SUBEND 
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1Q 1 l^**************^*****:********^ 

20 Gdu: SUB Gdu(X_gdu_max.Y_gdu_max, OPTIONAL Gdu.xmid , Gdu.ymid) 

30 ! This returns Xright , Yhigh and their respective midpoints in GDUs . 

40 ! Note that if Gdu_xmid is defined. Gdu_ymid must be also. 

50 COM /G.units/ Gdu_xmax,Gdu_ymax,Udu_xmin,Udu_xmax,Udu_ymin,Udu_ymax,Show 

60 IF Gdu_xmax=0 THEN 

70 Gdu_xmax=100*MAX(l. RATIO) 

80 Gdu_ymax=100*MAX( 1,1 /RATIO) 

90 END IF 

100 X_gdu_max=Gdu_xmax 

1 10 Y_gdu_max=Gdu_ymax 

120 IF NPAR>2 THEN 

130 Gdu_xmid=Gdu_xmax* . 5 

140 Gdu_ymid=Gdu_ymax* . 5 

150 END IF 

160 SUBEND 

Note that in the following routine, the ALPHA and GRAPHICS statements have no 
effect on multi-plane bit-mapped displays unless the alpha and graphics planes have 
been separated by appropriate definitions of the write-enable masks. 

10 ! ********************************************************************* 

20 Pause: SUB Pause (OPTIONAL Graphics.) 

30 ! This indicates that the output is finished, so push 'CONT' to go on. 

40 IF NPAR=0 THEN 

50 Graphic 8=0 

60 ELSE 

70 Graphics=Graphics_ 

80 END IF 

90 IF Graphics THEN 

100 BEEP 

110 GRAPHICS OFF 

120 ALPHA ON 

130 END IF 

140 DISP "Push 'CONTINUE' when you're ready to go on. 11 

150 IF Graphics THEN 

160 WAIT 2 

170 ALPHA OFF 

180 GRAPHICS ON 

190 END IF 

200 PAUSE 

210 DISP 

220 IF Graphics THEN 

230 GRAPHICS OFF 

240 ALPHA ON 

250 END IF 

260 SUBEND 
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10 ! *********************************************************************** 

20 End.plot: SUB End_plot(Crt .Copy .Device) 

30 ! This is just a housekeeping routine that takes care of some sundries 

40 ! at the end of a plot. "Crt" is a logical variable that tells whether 

50 ! the plot was done on the CRT or not. "Copy" is a variable that is 

60 ! returned to the calling routine that tells you whether you want 

70 ! another copy of the plot on the hard-copy plotter (Note that if Crt is 

SO ! true, Copy is forced to be false). "Device" is the address of the 

90 ! DUMP DEVICE. 

100 IF Crt THEN 

110 CALL Pause(l) 

120 Copy=0 

130 IF FNAskC'Shall I 'DUMP GRAPHICS'?" . "NO") THEN 

1 40 Expanded=FNAsk ("...' EXPANDED ' ? " . " NO " ) 

150 OUTPUT KBD USING "#.K" .Device 

160 INPUT "Dump device?" .Device 

170 IF Expanded THEN 

180 DUMP DEVICE IS Device 

190 ELSE 

200 DUMP DEVICE IS Device. EXPANDED 

210 END IF 

220 DUMP GRAPHICS 

230 END IF 

240 ELSE 

250 PENUP 

260 PEN 

270 CALL Gdu(X_gdu_max.Y_gdu_max) 

280 Setgu . . 

290 MOVE X_gdu_max . Y_gdu_max 

300 IF Copy THEN 

310 Copy=FNAsk("Do you want another copy of the plot?". "NO") 

320 IF Copy THEN CALL Load.paper 

330 END IF 

340 END IF 

350 SUBEND 
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Program Efficiency 

The following subprogram, Label, becomes useful only if there are several labels to be 
plotted which have different character sizes, orientations, label origins, etc. One call 
of this routine allows you to set all of the parameters dealing with labelling. Thus, in 
the calling routine, you need only have one line per label, rather than a CSIZE, LDIR, 
LORG, PEN, and MOVE for each label. 

10 ! ********************************************************************* 

20 Label: SUB Label (Csize,Asp_ratio,Ldir.Lorg, Pen. X,Y,Text$) 

30 ! This defines several systems variables (in CSIZE, LDIR, etc.), and 

40 ! labels the text (if any) accordingly. 

50 DEG 

60 CSIZE Csize.Asp.ratio 

70 LDIR Ldir 

80 LORG Lorg 

90 PEN Pen 

100 MOVE X.Y 

110 IF Text$<>"" THEN LABEL USING "#,K n ;Text$ 

120 PENUP 

130 SUBEND 
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The next routine returns the arc tangent in the correct quadrant of Y/X, both of which 
are passed in. If X=0, the routine takes care of it; it doesn't attempt a divide by zero. 

10 ! ********************************************************************* 

20 Atan: DEF FNAtan(Y.X) 

30 ! This figures the arc of Y/X in the correct quadrant and takes 

40 ! care of multiples of 90 degrees where X=0. The value returned is in 

50 ! current units. 

60 Radians=(ACS(-i)=PI) 

70 DEG 

80 IF X=0 THEN 

90 Arctan= (90+180* (Y<0))*(Y<>0) ! If X=0 and Y=0, Arctan=0. 

100 ELSE 

110 Arctan=ATN(Y/X)+180*(X<0)+360*((X>0) AND (Y<0)) 

120 END IF 

130 IF Radians THEN 

140 RAD 

150 Arctan= Arc tan/57. 2957795 131 

160 END IF 

170 RETURN Arctan 

180 FNEND 
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This next routine was called by the Gray Map routine in the Data Display and 
Transformations chapter. It takes an array and re-scales it to fit a new minimum and 
maximum. 

10 ! ******************************************************************** 

20 Scale: SUB Scale (Surf ace (*) ,New_min.New_max) 

30 ! This routine scales a matrix such that it will have a new lowest 

40 ! value of New_min and a new highest value of New_max. 

50 DISP USING "K"; "Scaling the surface array from " ,New_min," to 

" ,New_max, " . " 

60 Min=MIN (Surface (*)) 

70 Max=MAX (Surface (*)) 

80 IF Min=Max THEN ! Array is completely flat 

90 MAT Surface= (New_min) 

100 SUBEXIT 

110 END IF 

120 MAT Surface= Surf ace- (Min) 

130 Range_recip=(New_max-New_min)/(Max-Min) 

140 MAT Surface= Surf ace* (Range.recip) 

150 MAT Surface= Surf ace+(New_min) 

160 DISP 

170 SUBEND 
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9845 Graphics System Compatibility 

The HP 9845 graphics system allowed the user to go between UDUs and GDUs at will, 
merely by executing the statements SETUU and SETGU. Series 200/300 BASIC does 
not have these statements, but they can be simulated by the following short subprograms. 
(See also subprogram Gdu in the "Housekeeping" section, above. It can set the Xmax 
and Ymax in GDUs.) 

20 Setgu: SUB Setgu 

30 ! This simulates the 9845 graphics statement SETGU. 

40 COM /G_units/ Gdu_xmax,Gdu_ymax,Udu_xmin,Udu_xmax.Udu_ymin.Udu_ymax.Show 

50 WINDOW , Gdu_xmax . , Gdu.ymax 

60 SUBEND 

20 Setuu: SUB Setuu 

30 ! This simulates the 9845 graphics statement SETUU. 

40 COM /G_units/ Gdu_xmax,Gdu_ymax,Udu_xmin,Udu_xmax,Udu_ymin,Udu_ymax,Show 

50 IF Show THEN 

60 SHOW Udu_xmin,Udu_xmax.Udu_ymin,Udu_ymax 

70 ELSE 

80 WINDOW Udu_xmin,Udu_xmax,Udu_ymin,Udu_ymax 

90 END IF 

100 SUBEND 

10 ! ********************************************************************* 

20 Show: SUB Show(Xleft .Xright .Ylow.Yhigh) 

30 ! This simulates the system command SHOW, but saves the variables so 

40 ! the routines Setgu and Setuu work. 

50 COM /G_units/ Gdu_xmax,Gdu_ymax,Udu_xmin,Udu_xmax,Udu_ymin,Udu_ymax.Show 

60 IF Gdu_xmax=0 THEN 

70 Gdu_xmax=100*MAX(l, RATIO) 

80 Gdu_ymax=100*MAX(l,l/RATI0) 

90 END IF 

100 Udu_xmin=Xleft 

110 Udu_xmax=Xr i ght 

120 Udu_ymin=Ylow 

130 Udu_ymax=Yhigh 

140 Show=l 

150 SHOW Xleft, Xright, Ylow.Yhigh 

160 SUBEND 
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10 j :fc*:)|G)fc:fcst::fc:>|e:4e:fc:4e:4G5t::4c:4(:fc*:4::4c:4£*:4e* 

20 Window: SUB Window (Xlef t .Xright .Ylow.Yhigh) 

30 ! This simulates the system command WINDOW, but saves the variables so 

40 ! the routines Setgu and Setuu work. 

50 COM /G_units/ Gdu_xmax,Gdu_ymax,Udu_xmin,Udu_xmax,Udu_ymin.Udu_ymax,Show 

60 IF Gdu_xmax=0 THEN 

70 Gdu_xmax=100*MAX(l, RATIO) 

80 Gdu_ymax=100*MAX( 1.1 /RATIO) 

90 END IF 

100 Udu_xmin=Xleft 

1 10 Udu_xmax=Xright 

120 Udu_ymin=Ylow 

130 Udu_ymax=Yhigh 

140 Show=0 

150 WINDOW Xlef t, Xright, Ylow.Yhigh 

160 SUBEND 

HPGL 

The following subprogram specifies the maximum speed at which a plotter should draw. 
This was made specifically for an HP 9872 plotter, which has a maximum pen speed of 
36 cm/sec. If your plotter has a different maximum speed, you will need to change line 
100 to reflect the new maximum speed. 

20 Pen.speed: SUB Pen.speed (Speed. OPTIONAL Device.) 

30 ! This sends an HPGL plotter the command to draw at a maximum speed. 

40 IF NPAR=1 THEN 

50 Device=705 

60 ELSE 

70 Device=Device_ 

80 END IF 

90 IF Speed=0 THEN INPUT "What should the maximum plotter speed?" .Speed 

100 Speed=MIN (MAX ( 1 . INT (Speed+ . 5) ) . 36) 

110 OUTPUT Device USING "#.K" ; "VS"&VAL$ (Speed) ft" ; " 

120 SUBEND 
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Miscellaneous 

The next two subprograms are not explicitly graphics routines, but they are very useful 
general-purpose routines and they are used both in previous routines in this chapter, and 
in the large programs of the Data Display and Transformations chapter. 

10 ! ********************************************************************* 

20 Ask: DEF FNAsk(Question$, Defaults. OPTIONAL Timeout) 

ou mis is a i6s~or~no question-answering j. unction, me question is 

40 ! in to the function, asked of the user, and the default answer can be 

50 ! accepted. If the user answers intelligibly, that answer is returned 

60 ! through the function name; 1 for yes, and for no. If the user 

70 ! responds unintelligibly, the computer beeps, draws attention to the 

80 ! fact that an illegal answer was given, re-asks the question, and will 

90 ! again accept the default answer. 

100 ! If Timeout is passed the question will be asked for that specified 

110 ! number of seconds before the default answer is assumed. If Timeout is 

120 ! not passed, it will wait indefinitely for user response. 

130 DIM Answer$ [160] 

140 IF NPAR=3 THEN 

150 ON DELAY Timeout GOTO Take.default 

160 DISP Question! 

170 ON KBD ALL GOTO Process.key 

180 Spin: GOTO Spin ! "at warp 10, we're goin' nowhere mighty fast..." 

190 Process.key: OFF DELAY 

200 Key$=KBD$ 

210 SELECT Key$[l.l] 

220 CASE CHR$(255) ! It was a non-ASCII keypress 

230 SELECT Key$[2,2] 

240 CASE "E" , "C" ! Enter or Continue? 

250 GOTO Take.default 

260 CASE ELSE ! Illegal non-ASCII key 

270 BEEP 

280 END SELECT ! (select key$[2,2]) 

290 CASE ELSE ! ASCII keystroke 

300 OUTPUT KBD USING "#,K";Key$ 

310 END SELECT ! (select key$[l,l]) 

320 OFF KBD 

330 END IF ! (if npar=3) 

340 LOOP ! Now that we're in this loop, we'll stay until we get a good answer 

350 DISP Question!; 

360 LINPUT "".Answer! 

370 Answer$=UPC$ (TRIMS (Answer!)) 

380 IF Answer$="" THEN Answer$=UPC$(TRIM$ (Default!)) 

390 Convert.answer : SELECT Answer! 

400 CASE "YES" , "Y" , "1" ! Affirmative 

410 RETURN 1 

420 CASE "NO" . "N" , "0" ! Negative 

430 RETURN 

440 CASE ELSE ! Huh? ! ? 
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450 CALL MessageO'Please answer with a YES or a NO.") 

460 END SELECT 

470 END LOOP 

480 Take.def ault : DISP 

490 OFF DELAY 

500 Answer$=UPC$(TRIM$ (Default$)) 

510 GOTO Convert.answer 

520 FNEND 



10 



I ^ijt************:*****:*******:*:***:*:** 



20 Message: SUB Message (Message$ .OPTIONAL Wait.) 

30 ! This subroutine displays a message on the DISPlay line of the CRT, 

40 ! usually to notify the user of an error, or that a section of code has 

50 ! finished executing, etc. If Wait, is not defined [passed], the 

60 ! computer will beep, and the message will be displayed for two seconds, 

70 ! then disappear. If Wait, is defined, the computer will beep if it is 

80 ! greater than or equal to zero, it will not beep if it is less than 

90 ! zero, and in either case, the wait will be the absolute value, rounded 

100 ! to the nearest millisecond, unless it is zero, in which case the 

110 ! message will not be erased at all. 

120 DISP Message$ 

130 IF NPAR=1 THEN ! Default: 

140 BEEP 

150 WAIT 2 

160 DISP 

170 ELSE ! (npar=2) 

180 IF Wait_>=0 THEN BEEP 

190 Wait=PR0UND (ABS (Wait.) , -3) 

200 IF Wait>0 THEN 

210 WAIT Wait 

220 DISP 

230 END IF ! (if wait>0) 

240 END IF ! (if npar=l) 

250 SUBEND 



Wait 2 seconds, then 
clear the message. 

Note that the rounding occurs AFTER the 
BEEP. This allows "negative zero" which 
not only will not beep, but it will leave 
the message displayed, avoiding the WAIT 
and DISP. A "negative zero" is simulated 
by passing a negative number which will 
round to zero; e.g., -.0001. 
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Example Graphics Programs A- 7 

SINE A-8 

AXES A-10 
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RevLABEL A-15 

RPLOT A-16 
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SHOWWINDOW A-25 

Gload A-28 



Appendix 



A 



For your convenience, below is a table and a description of the programs and subprograms 
on the Manual Examples Disc. First is a table of the concepts and capabilities that the 
various programs exhibit. Following that is an alphabetic listing of the file names with 
a short description of them. 
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Table A-l. Example Programs and Their Characteristics 



File Name 


<! 


# ■ 

* <: 


4 

f 4 




C9° 


V 


J 9 


<<> 


V 


V 


^9 




/ 


i 




r 


SinViewprt 


E 


• 






























Csize 


E 




• 




























CharCell 


E 




• 




























Lorg 


E 




• 




























Ldir 


E 




• 




























SinLabel 


E 


• 


• 




























SinLabel2 


E 


• 


• 




























SinAxes 


E 


• 


• 




























SinGrdAxes 


E 


• 


• 




























Pen 


E 














• 
















• 


Gstore 


M 


• 


• 


• 




• 




• 


• 
















Lem2 


E 












• 






• 














Rplot 


E 












• 


• 




• 














Iplot 


E 




• 








• 




















Scenery 


E 












• 






• 














Symbol 


E 




• 








• 




















BAR.KNOB 


E 


• 


• 


• 




• 




• 


















CIRCLES 


C 


• 


• 


• 


• 












• 












BACKGROUND 


c 


• 




• 




• 


• 


• 






• 


• 










MARQUEE 


c 




• 




























RIPPLES 


c 






• 




• 














• 








STORM 


c 












• 




















Animation 


c 
































STEREO 


c 






• 


• 




• 








• 


• 










Pie_Chart 


c 




• 




























Lem2D 


E 






• 




• 


• 










• 










Contour 


E 




• 








• 




















Gray.Map 1 


E 












• 




















Surface 


E 












• 




















DumpGraph 


M 
















• 















































These are subprograms only, and must be called from a main program. All others are stand-alone 
programs. 



A- 2 Appendix 



Animation 

Any of three scenes can be portrayed as flashing by at high speed; some rushing at you, 
some rushing away. Demonstrates color map animation. 

BACKGROUND 

Demonstrates color map definition, non-dominant drawing, three-dimensional transfor- 
mations, and knob interaction. A box is rotated (repeatedly drawn and erased) in front 
of a grid without damaging the grid. The display is flicker- free because one image is 
drawn invisibly while the last image remains. The color map is altered to make the new 
image visible, while the old, now invisible, image is erased and a new one is drawn. 

BAFLKNOB 

Demonstrates the use of the knob to control dynamic displays. 

CharCell 

Shows the relationship between the actual character size and the character cell size. 

CIRCLES 

This shows that the color map can be defined to simulate an additive color scheme, a 
subtractive color scheme, or any arbitrary color scheme. 

Contour 

This subprogram accepts a two-dimensional array and plots a contour map. The user 
may specify low and high contour level and contour interval. 

Csize 

Demonstrates how to use the CSIZE statement to change the size of the character cells 
into which labelled characters are placed. 

DumpGraph 

This subprogram takes an image from the frame buffer of a monochromatic CRT and 
sends it to an HP 82905A printer. 

Gray_Map 

This subprogram accepts a two-dimensional array and plots a gray map from it. The 
data is scaled from zero to one. 
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Gstore 

Demonstrates the use of GSTORE and GLOAD in quickly replotting the unchanging 
part of an otherwise dynamic image. 

Iplot 

Uses incremental plotting to create characters for plotting labels in a user-defined 
character set. 

Ldir 

Demonstrates how the LDIR statement allows labelling of text on the graphics screen at 
any desired angle. 

Lem2 

Lem2 shows how the pen-control parameter lifts and drops the pen. It takes the same 
data and plots it in one statement. Uses area fills. 

Lem2D 

This demonstrates the four basic two-dimensional graphics transformations: translation, 
rotation, scaling and shearing. The knob controls the values entered, and "T" , "R" , "S" , 
and "H" , respectively, select the operations. 

Lorg 

Demonstrates how the LORG statement allows centering or cornering of labels in both 
the X and Y directions. 

MARQUEE 

Uses color-map animation to create a movie marquee announcing the coming attractions. 

Pen 

Demonstrates drawing modes on monochromatic CRTs. Lines are drawn, erased and 
complemented. 

Pie.Chart 

This program runs a subprogram which accepts pie chart data: up to fourteen segments, 
each with its own label, plus title and subtitle. 
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RIPPLES 

Color map animation with concentric circles. The luminosity of the color represents the 
height of the ripple on the water. 

Rplot 

Uses RPLOT statement to move subpictures, PIVOT to rotate them, and AREA 
INTENSITY to define shading. 

Scenery 

Uses POLYGONS, POLYLINES, RPLOTS, and area fills to create an idyllic scene of 
rustic simplicity. 

SinAxes 

This is part of the "Progressive Example" in Chapters 1 and 2. Axes are added, along 
with labels at approriate points along them. 

SinGrdAxes 

This is part of the "Progressive Example" in Chapters 1 and 2. Both a GRID and two 
AXES statements are used to allow ease of interpolation of values on the data curve and 
also to avoid clutter. 

SinLabel 

This is part of the "Progressive Example" in Chapters 1 and 2. Labels are plotted after 
having used CSIZE, LORG and LDIR. 

SinLabel2 

This example is similar to SinLabel except that it draws a "bold" label. 

SinViewprt 

This is part of the "Progressive Example" in Chapters 1 and 2. A viewport is defined 
using GDU measurements of the screen. 

STEREO 

Uses non-dominant drawing and three-dimensional transformations to display red-blue 
stereo images which can be viewed through bi-colored glasses. 
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STORM 

Demonstrates the use and speed of color map animation. A little house on the prairie is 
besieged by a thunderstorm. 

Surface 

This subprogram draws a surface represented by a two-dimensional array. Hidden lines 
may be removed, and the viewing angle can be selected by the user. 

Symbol 

Demonstrates how to define and label user-defined characters with the SYMBOL 
statement. 
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Example Graphics Programs 

The following programs use graphics to help illustrate the operation of several of the 
graphics statements available in BASIC. You may wish to modify or entirely rewrite the 
programs to better understand how the statements work. 
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SINE 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 



Program: SINE 

Shows some basics of drawing and labeling. 



DEG 

GINIT 

GRAPHICS ON 

PRINT CHR$(12); 

WINDOW -100,800,-2.2 

AXES 90, .5 

! 

LORG 6 

FOR 1=0 TO 720 STEP 90 

MOVE 1,0 

LABEL I 

NEXT I 

! 

LORG 8 

FOR 1—1.5 TO 1.5 STEP .5 

MOVE 0,1 

LABEL I 

NEXT I 

! 

LORG 5 

MOVE 450.1.75 

LABEL "Plot of SIN(X)" 

! 

MOVE 0.0 

FOR X=0 TO 720 

DRAW X.SIN(X) 

NEXT X 

I 

END 



DEGREES 
INITIALIZE 
RASTER ON 
CLEAR ALPHA 
SET WINDOW 
DRAW AXES 

! LABEL X AXIS 



! LABEL Y AXIS 



! LABEL PLOT 



! PLOT SINE 
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DI.4 — .C CTKtf\/\ 
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AXES 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 



Program: AXES 

Draw and label the AXES statement. 



GINIT 

GRAPHICS ON 
ALPHA OFF 
i 

Xloc=20 
Yloc=20 
Xmaj=4 
Yma j =2 



X AXIS LOCATION 
Y AXIS LOCATION 
MAJOR TICK COUNT 
MAJOR TICK COUNT 
LENGTH OF TICKS 



■1 



,Xmaj ,Ymaj .Size 
! LABEL THE AXES 



Size=8 
I 

FOR 1=100 TO 10 STEP 

PEN -1 

AXES Xtic , Ytic , Xloc , Yloc , Xmaj , Yma j , Size 

Xtic=I 

Ytic=I 

PEN 1 

AXES Xtic. Ytic, Xloc, Yloc 

NEXT I 

I 

MOVE Xloc, Yloc 

IDRAW 20,20 

LABEL "XlocYloc? 

MOVE Xloc+40.Yloc 

IDRAW 20,30 

LABEL "Major Tick" 

MOVE Xloc+50.Yloc 

IDRAW 10,15 

LABEL "Minor Tick" 

MOVE Xloc-Size/2,Yloc+40 

DRAW 40,80 

MOVE Xloc+Size/2,Yloc+40 

DRAW 40,80 

LABEL "Tick Size" 

i 

END 
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Tick Size 



Xloc.Yloc 





Major Tick 



Mi nor Ti ck 



Appendix A- 11 



GRID 

10 ! Program: GRID 

20 ! 

30 ! Shows various size grids. 

40 ! 

50 GINIT 

60 GRAPHICS ON 

70 PRINT CHR$(12); 

80 ! 

90 WINDOW -110.100.-110,110 

100 ! 

110 Yloc=0 ! CENTER AT 0.0 

120 Xloc=0 

130 Xmaj=6 

140 Ymaj=2 

150 Size=20 

160 ! 

170 LORG 4 

180 ! 

190 FOR 1=10 TO 100 STEP 2 

200 Xtic=I 

210 Ytic=I 

220 ■ GCLEAR 

230 MOVE 1/2.0 

240 LABEL I 

250 GRID Xtic.Ytic.Xloc.Yloc.Xmaj .Ymaj .Size 

260 WAIT (100-D/100 

270 NEXT I 

280 ! 

290 WAIT 2 

300 GRAPHICS OFF 

310 END 
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LABEL 





10 


! Program: LABEL 


20 


i 


30 


DEG 


40 


GINIT 


50 


GRAPHICS ON 


60 


Clear_crt$=CHR$ (255) &CHR$ (75) 


70 


OUTPUT 2;Clear_crt$; 


80 


SHOW -100,100.-100,100 


90 


! 


100 


FOR 1=0 TO 360 STEP 22.5 ! Non-rotated 


110 


MOVE -60,0 


120 


PIVOT I 


130 


IDRAW 40,0 


140 


0rgx=40*C0S(I)-60 


150 


0rgy=40*SIN(I) 


160 


MOVE Orgx.Orgy 


170 


LORG 5 


180 


LABEL "hp" 


190 


NEXT I 


200 


! 


210 


FOR 1=0 TO 360 STEP 22.5 ! Rotated 


220 


MOVE 60,0 


230 


PIVOT I 


240 


IDRAW 40,0 


250 


0rgx=4O*C0S(I)+6O 


260 


Orgy=40*SIN(I) 


270 


MOVE Orgx.Orgy 


280 


LORG 2 


290 


LDIR I ! Note LDIR i 


300 


LABEL "hp" 


310 


NEXT I 


320 


! 


330 


END 
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RevLABEL 

2orrlq6iD 92i9V9?l 



10 ! Program "RevLABEL". 

20 GINIT 

30 PLOTTER IS CRT, "INTERNAL" 

40 GRAPHICS ON 

50 CSIZE 8, -.6 ! Note negative aspect ratio. 

60 MOVE 90,50 

70 LABEL "Reverse Graphics" 

80 END 
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RPLOT 

10 ! Program: RPLOT 

20 ! 

30 ! Repeats an image at various locations 

40 ! 

50 DEG 

60 GINIT 

70 GRAPHICS ON 

80 WINDOW -10,370.-100,100 

90 PRINT CHR$( 12) ; ! CLEAR SCREEN 

100 DISP " RPLOT" 

110 FRAME 

120 ! 

130 FOR 1=0 TO 360 STEP 12 

140 MOVE I,SIN(I)*80 

150 GOSUB Shape 

160 NEXT I 

170 ! 

180 GOTO Quit 

190 ! 

200 Shape: ! DRAW A RESISTOR 

210 ! 

220 RPLOT -10,0.1 

230 RPLOT -6,0 

240 RPLOT -4,2 

250 RPLOT -2,-2 

260 RPLOT 0,2 

270 RPLOT 2,-2 

280 RPLOT 4,2 

290 RPLOT 6,0 

300 RPLOT 10,0 

310 RETURN 

320 ! 

330 Quit: END 
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-tyyw wyyw 



-w- 



-w- 
-w- 



-w 



-w- 






-w^ 



-w- 



-w^ 



-w- 






-w- 


-w^ 






-w- 


-v^- 






-w^ 


-w^ 




-w- 


-w- 


-w- 






^# 
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Generate some random numbers 



RANDOMVIEW 

10 ! Program: RANDOMVIEW 

20 ! 

30 RANDOMIZE 

40 ! 

50 Start: ! Demonstration of VIEWPORT and WINDOW 

60 ! 

70 DEG 

80 GINIT 

90 GRAPHICS ON 

100 ALPHA OFF 

110 

120 

130 

140 Xmin=RND*131 

150 Xmax=Xmin+RND*(131-Xmin) 

160 Ymin=RND*100 

170 Ymax=Ymin+RND*(100-Ymin) 

180 

190 

200 

210 VIEWPORT Xmin.Xmax.Ymin.Ymax 

220 WINDOW -50,50,-50,50 

230 FRAME 

240 

250 

260 

270 FOR 1=0 TO 200 

280 P=40*C0S(11*I) ! ELEVEN LEAF ROSE 

290 X=P*COS(I) 

300 Y=P*SIN(I) 

310 DISP INT(Xmax-Xmin);":";INT(Ymax-Ymin) 

320 IF 1=0 THEN MOVE X,Y 

330 DRAW X,Y 

340 NEXT I 

350 ! 

360 GOTO Start ! DO IT AGAIN 

370 END 



Set VIEWPORT to random area 



Draw a rose within the area 
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COLOR 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 
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200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 



Program: COLOR 

This program works with the 98627A 
Color Output Interface. 



Note that a 'PLOTTER IS' statement must 
immediately follow 'GINIT' statement. 

Note different pen assignments. 

GINIT 

PLOTTER IS 28."98627A" 

GRAPHICS ON 

PEN 1 

FRAME 

! 

FOR X=0 TO 120 STEP 40 

MOVE X.70 

PEN 1 

LABEL "WHITE" 

PEN 2 

LABEL "RED" ' 

PEN 3 

LABEL "YELLOW" 

PEN 4 

LABEL "GREEN" 

PEN 5 

LABEL "CYAN" 

PEN 6 

LABEL "BLUE" 

PEN 7 

LABEL "MAGENTA" 

NEXT X 

END 
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rfHITE 


WHITE 


WHITE 


WHITI 


3ED 


RED 


RED 


RED 


YELLOW 


YELLOW 


YELLOW 


YELLi 


GREEN 


GREEN 


GREEN 


GREEI 


CYRN 


CYRN 


CYRN 


CYRN 


BLUE 


BLUE 


BLUE 


BLUE 


MRGENTR 


MRGENTR 


MRGENTR 


MRGEI 
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PIVOT 



MODEL 



WITH PIVOT 





10 ! Program: PIVOT 

20 ! 

30 ! Shows pivoting around a point . 

40 ! 

50 DEG 

60 GINIT 

70 GRAPHICS ON 

80 PRINT CHR$(12) ; 

90 DIM X(4),Y(4) 

100 DATA 40,20,0,14,-6,6.-14.0,-20,-40 ! SHAPE 

110 FOR 1=0 TO 4 

120 READ X(I).Y(I) 

130 NEXT I 

140 ! 

150 DATA 80,130,35,85.0,40.50,90 ! 'WINDOWS' 

160 READ Sl,Sr,Sb.St,Ml,Mr.Mb,Mt 

170 ! 

180 DIM 0rgx(3),0rgy(3) 

190 DATA 40,60,40.40.20.20.0.0 ! ORIGINS 

200 FOR 1=0 TO 3 

210 READ OrgxU).Orgy(I) 

220 NEXT I 

230 MOVE 10,95 

240 LABEL "MODEL" 

250 MOVE 90,90 

260 LABEL "WITH PIVOT" 

270 LINE TYPE 8 

280 MOVE Ml, Mb ! CONNECT LINES 

290 DRAW Sl.Sb 

300 MOVE Mr, Mb 

310 DRAW Sr.Sb 

320 MOVE Mr.Mt 

330 DRAW Sr.St 
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340 MOVE SI, St 

350 DRAW Ml.Mt 

360 ! 

370 MOVE Ml.Mt 

380 P=l 

390 LINE TYPE 1 

400 Ox=Orgx( Index) 

410 0y=0rgy( Index) 

420 GOSUB Model 

430 ! 

440 VIEWPORT Sl.Sr.Sb.St 

450 SHOW -25,100,-25,100 

460 GOSUB Shape 

470 DISP "Angle =";Angle 

480 Angle=Angle+5 

490 IF Angle<361 THEN 460 

500 CALL Cursor (Ox, Oy.-l) ! PIVOT POINT 

510 P=-l 

520 GOSUB Model 

530 Angle=0 

540 Index=Index+l 

550 IF Index>3 THEN Quit 

560 GOTO 380 

570 ! 

580 Model: VIEWPORT Ml. Mr, Mb. Mt 

590 SHOW -25,100,-25,100 

600 FRAME 

610 GOSUB Shape 

620 RETURN 

630 Shape: ! DRAW IN CURRENT 'WINDOW' 

640 PEN -1 

650 MOVE 20,20 

660 FOR 1=0 TO 4 

670 IDRAW X(I),Y(I) 

680 NEXT I 

690 MOVE Ox.Oy 

700 PEN 1 

710 CALL Cursor (Ox, Oy.P) 

720 PIVOT Angle 

730 PEN 1 

740 FRAME 

750 MOVE 20.20 

760 FOR 1=0 TO 4 

770 IDRAW X(I).Y(I) 

780 NEXT I 

790 RETURN 

800 Quit: DISP 

810 END 

820 ! 

830 ! SUB PROGRAM 
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840 ! 

850 SUB Cursor (X.Y.P) 



860 


PEN P 


870 


PIVOT 


880 


MOVE X.Y 


890 


IMOVE 5.0 


900 


IDRAW -10,0 


910 


IMOVE 5,5 


920 


IDRAW 0.-10 


930 


MOVE X.Y 


940 


SUBEXIT 


950 


SUBEND 
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SHOWWINDOW 



MODEL 




\ 



A Y K \ 

/ / / V \ \ \ 
' / \\ \ \ 

/ / / / \ \ \ \ 

{ SHOMy / \ \ yiNDOW \ 

/ \ 

/ \ 

/ \ 





10 ! Program "SHOWWINDOW" 

20 DIM X ( 180) , Y ( 180) , Prompt $ [40] , Pad$ [40] 

30 ! This program compares the mapping of SHOW and WINDOW. 

40 ! — Do all the setup 

50 CONTROL CRT, 12; 1 ! Turn key labels off 

60 Crt_id$=SYSTEM$("CRT ID") 

70 Width=VAL (Crt_id$ [4,5]) 

80 Prompt$="New aspect ratio:" 

90 Pad$=RPT$(" " , (Width-LEN(Prompt$)) DIV 2) 

100 DISP "Calculating the points..." 

110 DEG 

120 FOR Theta=0 TO 180 

130 Radius=C0S(5*Theta) ! (change 5 to another odd number for neat effects) 

140 X(Theta)=Radius*COS(Theta) 

150 Y(Theta)=Radius*SIN(Theta) 

160 NEXT Theta 

170 DISP 

180 READ Show_lef t , Show.right , Show_bottom , Show.top 

190 READ Model_left.Model_right,Model_bottom,Model_top 

200 DATA 0,50,0,30, 57,77,75,95 

210 REPEAT 

220 GINIT 

230 PLOTTER IS CRT, "INTERNAL" 

240 GRAPHICS ON 

250 Window_right=131 
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260 Window_left=Window_right-Show_right 

270 Window_bottom=Show_bottom 

280 Window_top=Show_top 

290 Ratio= (Window_right-Window_lef t ) / (Window_top-Window_bottom) 

300 PRINT USING 310 ;CHR$ (12) , "Aspect ratio: ", INT (Ratio) .FRACT (Ratio) 

310 IMAGE K.K.K, .2D 

320 ! — Draw the three plotting surfaces 

330 VIEWPORT Model.left ,Model_right ,Model_bottom,Model_top 

340 FRAME 

350 VIEWPORT Show.lef t , Show.right , Show.bottom , Show.top 

360 FRAME 

370 VIEWPORT Window.lef t . Window.right , Window.bottom , Window.top 

380 FRAME 

390 VIEWPORT 0, RATIO* 100,0, 100 

400 ! — Indicate the Model/Show relationship 

410 LINE TYPE 5 

420 MOVE Model_left,Model_bottom 

430 DRAW Show_left,Show_bottom 

440 MOVE Model_left,Model_top 

450 DRAW Show_left,Show_top 

460 MOVE Model_right,Model_top 

470 DRAW Show.right , Show.top 

480 MOVE Model_right.Model_bottom 

490 DRAW Show.right . Show.bottom 

500 ! — Indicate the Model/Window relationship 

510 LINE TYPE 6 

520 MOVE Model_left.Model_bottom 

530 DRAW Window_left,Window_bottom 

540 MOVE Model_left,Model_top 

550 DRAW Window_left,Window_top 

560 MOVE Model_right,Model_top 

570 DRAW Window_right,Window_top 

580 MOVE Model_right,Model_bottom 

590 DRAW Window_right,Window_bottom 

600 ! — Label the various plotting surfaces 

610 LINE TYPE 1 

620 MOVE Model_left+(Model_right-Model_left)/2,Model_top 

630 LORG 4 

640 LABEL "Model" 

650 MOVE Show_left,Show_top 

660 LORG 1 

670 LABEL "Show" 

680 MOVE Window_right,Window_top 

690 LORG 7 

700 LABEL "Window" 

710 LORG 1 

720 ! — Plot three curves simultaneously 

730 FOR Theta=l TO 180 

740 VIEWPORT Model.left .Model.right ,Model_bottom.Model_top 

750 SHOW -1,1.-1,1 
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760 MOVE X (Thet a- 1 ) , Y (Thet a- 1 ) 

770 DRAW X(Theta),Y(Theta) 

780 VIEWPORT Show.lef t , Show.right , Show_bottom , Show.top 

790 SHOW -1.1,-1,1 

800 MOVE X (Theta- 1 ) . Y (Thet a- 1 ) 

810 DRAW X (Theta). Y (Theta) 

820 VIEWPORT Window.left , Window.right ,Window_bottom,Window_top 

830 WINDOW -1,1.-1,1 

840 MOVE X (Theta- 1) , Y (Theta- 1) 

850 DRAW X (Theta), Y (Theta) 

860 NEXT Theta 

870 ! — Ask for the next aspect ratio 

880 DISP Pad$; Prompt!; ! Indent the prompt 

890 OUTPUT KBD USING "#,K";Pad$ ! Indent the response 

900 Rati o=0 

910 INPUT "".Ratio 

920 IF Ratio>0 THEN 

930 IF Ratio> 1 THEN 

940 Show_right=50 

950 Show_top=50/Ratio 

960 ELSE 

970 Show_top=50 

980 Show_right=50*Ratio 

990 END IF 

1000 END IF 

1010 UNTIL Ratio<=0 



1020 CONTROL CRT,12;0 

1030 PRINT CHR$(12) 

1040 GRAPHICS OFF 

1050 END 



Key labels back to default state 

Clear the alpha screen 

Turtn off the graphics screen 
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Gload 



10 


! Program "Gload" 






20 


OPTION BASE 1 






30 


INTEGER Return_array(6) 






40 


GINIT 






50 


PLOTTER IS CRT, "INTERNAL" 






60 


SHOW -1,1,-1,1 






70 


GRAPHICS ON 






80 


GESCAPE CRT,3;Return_array(*) 






90 


Size=Return_array (5) *Return_array (6) 






100 


ALLOCATE INTEGER PO(Size) .Pl(Size) ,P2(Size) 


,P3(Size) 


,P4(Size) 


110 


DEG 






120 


POLYGON l.FILL 






130 


AREA PEN -1 






140 


MOVE . 1 , . 5 






150 


PDIR 






160 


POLYGON .l.FILL 






170 


FOR 1=0 TO 4 






180 


IF I>0 THEN 






190 


PLOT 0.0 






200 


PDIR -1*6 






210 


POLYGON 1.60, 1*2, FILL 






220 


END IF 






230 


SELECT I 






240 


CASE 






250 


GSTORE P0(*) 






260 


CASE 1 






270 


GSTORE Pl(*) 






280 


CASE 2 






290 


GSTORE P2(*) 






300 


CASE 3 






310 


GSTORE P3(*) 






320 


CASE 4 






330 


GSTORE P4(*) 






340 


END SELECT 






350 


NEXT I 






360 


LOOP 






370 


GLOAD P0(*) 






380 


GLOAD Pl(*) 






390 


GLOAD P2(*) 






400 


GLOAD P3(*) 






410 


GLOAD P4(*) 






420 


GLOAD P3(*) 






430 


GLOAD P2(*) 






440 


GLOAD Pl(*) 






450 


END LOOP 






460 


END 
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Index 



a 

Aborting graphics dumps 3-3 

Absolute locators 4-14 

Additive palette 5-19 

Alpha mask 2-60 

Alpha: 

Bit-mapped 2-64 

Display-Enable mask 2-60 

Scrolling, enable and disable 2-64 

Separate from graphics 1-6 

Write-Enable mask 2-60 

Alpha/Graphics interaction 2-61 

Angular direction (for labels) 2-12 

Animation 2-63, 5-25 

Ansiotropic scaling 1-9, 2-48 

Arc utility 7-1 

Arcs 7-1 

AREA COLOR statement 2-47, 2-52, 5-7 

AREA INTENSITY statement 2-40, 2-47, 2-52, 5-7 

AREA PEN statement 2-47, 2-52, 5-7 

Area: 

soft clip 1-11, 2-26 

Array size (for GSTORE) 5-6 

Aspect ratio 2-2, 2-9 

AXES program A-10 

AXES statement 1-15 



b 



BACKGROUND program A-3 

Background value 5-7 

Backgrounds 5-21 

BAR.KNOB program 4-1, A-3 

BDAT files 3-11 



Index 1 



BIN files: 

GRAPH 1-1 

GRAPHX 1-1 

KBD 4-14 

MAT 2-1 

BINCMP statement 3-6 

Bit-mapped alpha 2-64 

Bit-mapped displays 2-59 

Blindness, color 5-25 

Bold labels 2-15 

Business colors 5-10 

c 

CDials program 4-4 

Ceiling of a number 1-8 

Cell, character 2-6 

Character aspect ratio 2-9 

Character cell 2-6 

Character set selection 3-9 

Characters, user-defined 2-53 

CharCell program 2-8, A-3 

CIRCLES program A-3 

CLIP OFF statement 1-11, 2-20 

CLIP statement 2-26 

Clipping: 

Hard 1-11, 2-26 

hard 4-12 

Soft 1-11, 2-26 

Closure, polygon 2-47, 2-48 

CLR I/O key 3-3 

CMY color cube 5-32 

Color blindness 5-25 

Color cubes: 

CMY 5-32 

Color Cubes: 

RGB 5-32 

Color displays 2-59 
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Color graphics: 

Additive palette 5-19 

Animation 5-25 

Backgrounds 5-21 

Business colors 5-10 

CMY color cube 5-32 

Color selection 5-2 

Color-mapped displays 5-7 

Color Graphics: 

Colors, choosing 5-30 

Color graphics: 

Complementary writing 5-21 

Default colors 5-9 

Color Graphics: 
Display design 5-24 

Color graphics: 

Dithering 5-6, 5-16 

Dominant pens 5-4 

Effective color use 5-22 

Erasing colors 5-8 

Frame buffer 5-7 

Fundamentals . , 5-1 

Gamuts, color 5-38 

HP 98627A Color Interface 5-3 

HSL color cylinder 5-36 

Mixing colors 5-23 

Non-color-mapped displays 5-2 

Non-dominant writing 5-19 

Pen colors, choosing 5-5 

Plotting 5-39 

Color Graphics: 

Primary colors 5-10 

Color graphics: 

RGB color cube 5-32 

Spaces, color 5-32 

Subtractive palette 5-19 

Temperature, color 5-31 

Color Map 5-11 

Color Models: 

HSL 5-12 

RGB 5-12 
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COLOR program A-20 

Color-mapped displays 5-7 

Compatibility, HP 9845 7-11 

Complement lines 2-27 

Complementary drawing mode 4-7 

Complementary writing 5-21 

Contour plotting 6-9 

Contour program 6-9, A-3 

Control dial box 4-4 

CONTROL KBD statement 2-64 

Coordinate system, symbol 2-9, 2-54 

Cross-hair 4-5 

Crossbars 1-15 

CS (character set) command 3-9 

Csize program 2-6, A-3 

CSIZE statement 2-6 

Cube, color 5-32 

Current relative origin 2-41 

Current usable area 4-12 

Cursor keys 4-14 

Cylinder, HSL color 5-36 



d 



Data-driven plotting 2-37 

DEG statement 2-12 

Degrees of freedom 4-2 

DIGITIZE statement 4-5, 4-18 

Direction, label 2-12 

Disable alpha scrolling 2-64 

Display design 5-24 

Display-enable mask 2-60 

Displays: 

Color-mapped 5-7 

Non-color-mapped 5-2 

Dithering 2-40, 5-6, 5-16 

DITHER.PAL program 5-18 

Dominant pens 5-4 

Drawing lines 1-5 

Drawing mode, complimentary 4-7 

Drawing Modes 2-27 
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DUMP DEVICE IS statement 3-2 

Dump graphics 3-2, 3-15 

DUMP GRAPHICS key 3-3 

DUMP GRAPHICS statement 3-2 

DumpGraph program A-3 

e 

Echoes 4-5, 5-22 

EDGE keyword 2-47, 2-52 

EDGE parameter 2-44 

Edges, screen 1-7 

Efficiency, program 7-8 

Enable alpha scrolling 2-64 

End.plot utility 7-7 

Equal units (isotropic scaling) 1-6, 2-2 

Erasing colors 5-8 

Error detection 3-10 

Example programs 2-1 

Example programs disc 1-1 

Example programs: 

AXES A-10 

BACKGROUND A-3 

BAR.KNOB 4-1, A-3 

CDials 4-4 

CharCell 2-8, A-3 

CIRCLES A-3 

COLOR A-20 

Contour 6-9, A-3 

Csize 2-6, A-3 

DITHER.PAL 5-18 

DumpGraph A-3 

Gload A-28 

Gray.Map 6-12, A-3 

GRID A-12 

Gstore 2-32, A-4 

Iplot 2-46, A-4 

KBDJCONS 4-15 

LABEL A-14 

Ldir 2-12, A-4 

Leml 2-38 
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Example programs (continued): 

Lem2 A-4 

Lem2D A-4 

Lorg 2-10, A-4 

MARQUEE A-4 

Marquee 5-25 

Pen 2-27, A-4 

Pie.Chart A-4 

PIVOT A-22 

RANDOMVIEW A-18 

RevLABEL A-15 

RIPPLE 5-29 

RIPPLES A-5 

RPLOT A-16 

Rplot 2-42, A-5 

Scenery 2-48, A-5 

SET COLOR 5-14 

SHOWWINDOW A-25 

SinAxes A-5 

SINE A-8 

Example Programs: 

SinGrdAxes 2-23 

Example programs: 

SinGrdAxes A-5 

SinLabel 2-14, A-5 

SinLabel2 2-15, A-5 

SinViewprt 2-4, A-5 

STEREO 5-29, A-5 

STORM 5-29, A-6 

Surface 6-14, A-6 

Symbol 2-55, A-6 

Example statements: 
LINE TYPE 2-31 

Expanded graphics dumps 3-4 



f 



Fat.arc utility 7-2 

Fatjine utility 7-2 

Files, plotting to 3-11 

FILL keyword 2-47, 2-52 

FILL parameter 2-44 

6 Index 



Fill value 5-7 

Floor of a number 1-8 

FNAsk utility 7-13 

FNAtan utility 7-9 

Force, pen 3-8 

Frame buffer 5-7 

Freedom, degrees of 4-2 

FS (force select) command 3-8 

Functions: 

RATIO 2-2 

RND 1-6, 1-8 
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Gamuts, color 5-38 

GCLEAR statement 5-8 

Gdu utility 7-6 

GDUs 1-11, 2-2, 7-6 

GESCAPE statement 2-32, 2-59, 2-60 

GINIT statement 1-5, 4-12 

GLOAD command , 2-32 

Gload program A-28 

GRAPH BIN file 1-1 

Graphics and alpha, separate 1-6 

Graphics Dipslay Units 1-11, 2-2 

GRAPHICS INPUT IS statement 4-6 

GRAPHICS ON statement 1-6 

Graphics tablet 4-4, 4-14 

Graphics: 

Binary files 1-1 

Character size 2-6 

Color 5-1 

Display-Enable mask 2-60 

Dumps 3-2, 3-15 

Echoes 4-5 

Example programs 1-1 

GRID vs. AXES 2-22 

Housekeeping 7-4 

Initialization 1-5 

Input 4-12 

Interactive 4-1 

Labels 1-13, 2-6 
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Graphics (continued): 

Line types 2-31 

Plotting 3-7 

Rotation 2-41 

Scaling, isotropic 1-6, 2-2 

Statement requirements 1-1 

Storing and retrieving images 2-31 

Translation 2-41 

Turning on 1-6 

Write-Enable mask 2-59 

Graphics/Alpha interaction 2-61 

GRAPHX BIN file 1-1 

Gray maps 6-11 

Gray.Map program 6-12, A-3 

GRID program A-12 

GSEND statement 3-7, 3-12 

GSTORE command 2-31 

Gstore program 2-32, A-4 

GSTORE statement 5-6 



h 



Hard clip limits .,. 1-11, 2-26, 4-12 

Hewlett-Packard Graphics Language (HPGL) 3-7 

Housekeeping 7-4 

HP 9845 Compatibility 7-11 

HP Raster Interface Standard 3-2 

HP-HIL devices: 

Cursor keys 4-14 

Knob 4-14 

Mouse 4-14 

Support 4-17 

Tablet 4-14 

Touchscreen 4-14 

HP98627A Color Interface 5-3 

HPGL commands: 

CS (character set) 3-9 

Error detection 3-10 

FS (force select) 3-8 

Fundamentals 3-7 

Termination 3-7 

VS (velocity select) 3-8 
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HSL color cylinder 5-36 

HSL color model 5-12 

■ 

I 

IDRAW statement 2-45 

Images, negative 3-6 

Images, storing and retrieving 2-31 

IMOVE statement 2-45 

Incremental plotting 2-45 

Initialization, graphics 1-5 

Input devices 4-3 

Input, graphics 4-12 

Inverse video images 3-6 

Iplot program 2-46, A-4 

IPLOT statement 2-40, 2-45 

Isotropic scaling 1-6, 2-2 



k 



KBD BIN file 4-14 

KBDJCONS program 4-15 

Keywords AXES 1-15 

Keywords: 

AREA COLOR 2-47, 2-52, 5-7 

AREA INTENSITY 2-40, 2-47, 2-52, 5-7 

AREA PEN 2-47, 2-52, 5-7 

BINCMP 3-6 

CLIP 2-26 

CLIP OFF 1-11, 2-20 

COLOR MAP 5-7 

CONTROL KBD 2-64 

CSIZE 2-6 

DEG 2-12 

DIGITIZE 4-5, 4-18 

DUMP DEVICE IS 3-2 

DUMP GRAPHICS 3-2 

EDGE 2-47, 2-52 

EXPANDED (DUMP DEVICE IS) 3-4 

FILL 2-47, 2-52 

GCLEAR 5-8 

GESCAPE 2-32, 2-59, 2-60 
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Keywords (continued): 

GINIT 1-5, 4-12 

GLOAD 2-32 

GRAPHICS INPUT IS 4-6 

GRAPHICS ON 1-6 

GSEND 3-7, 3-12 

GSTORE 2-31, 5-6 

IDRAW 2-45 

IMOVE 2-45 

IPLOT 2-40, 2-45 

LABEL 1-13, 2-6, 2-13 

LDIR 2-12 

LORG 2-10 

MAT REORDER 5-26 

MERGE ALPHA WITH GRAPHICS 2-62 

MOVE 1-13 

OUTPUT 3-3 

PDIR 2-42, 2-48 

PEN 5-7 

PIVOT > 2-42, 2-48 

PLOT 1-5, 1-13, 2-37, 2-40 

PLOTTER IS 3-7, 5-2 

POLYGON 2-47 

POLYLINE 2-48 

RAD 2-12 

RATIO 2-2, 4-12 

READ LOCATOR 4-6, 4-18 

RECTANGLE 2-52 

RND 1-6, 1-8 

RPLOT 2-41 

SEPARATE ALPHA FROM GRAPHICS 2-62 

SET ECHO 4-5 

SHOW 1-6, 2-2 

SYMBOL 2-40, 2-53 

TRACK IS ON 4-5 

VIEWPORT 1-11, 1-12, 2-2, 2-3, 2-26 

WINDOW 2-2, 2-7 

Knob 4-14 
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I 



Label direction 2-12 

Label origin 2-10 

LABEL program A-14 

LABEL statement 1-13, 2-6, 2-13 

Label utility 7-8 

Labeling 7-8 

Labels 1-13, 2-6 

Labels, bold 2-15 

Ldir program 2-12, A-4 

LDIR statement 2-12 

Leml program 2-38 

Lem2 program A-4 

Lem2D program A-4 

Letters, bold 2-15 

Limits, hard clip 4-12 

Limits, screen 1-7 

Limits: 

Hard clip 1-11, 2-26 

Screen 1-11 

Soft clip ( 1-11, 2-26 

Line, rubber band 4-7 

LINE TYPE statement 2-31 

Line types 2-30 

Line value 5-7 

Lines, drawing 1-5 

Load.paper utility 7-5 

Locators, absolute 4-14 

Locators, relative 4-14 

Lorg program 2-10, A-4 

LORG statement 2-10 

m 

Manual Examples disc 1-1, 2-1 

Map, color 5-11 

Maps, gray 6-11 

Marks, tick 1-15 

MARQUEE program A-4 

Marquee program 5-25 
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Mask: 

Alpha 2-60 

Display-enable 2-60 

Write-enable 2-59 

MAT BIN file 2-1 

MAT REORDER statement 5-26 

Maximum usable area 4-12 

Menu-picking 4-19 

MERGE ALPHA WITH GRAPHICS statement 2-62 

Message utility 7-14 

Mode, dominant pen 5-4 

Models, color 5-12 

Modes, drawing 2-27 

Monochromatic pens 2-27 

Mouse 4-14 

MOVE statement 1-13 

Multi-plane bit-mapped displays 2-59 

Multiple picture display 2-63 

n 

Negative images 3-6 

Non-color-mapped displays 5-2 

Non-dominant writing 5-19 

Non-dominant writing mode 4-10 

Non-separable degrees of freedom 4-3 

Non-square pixels 3-4 

Number: 

Ceiling, calculating 1-8 

Floor, calculating 1-8 

o 

Origin, label 2-10 

Origin, relative 2-41 

OUTPUT statement 3-3 



P 



PI and P2 parameters 7-5 

PI and P2 points 4-12 

Pairs, stereo 5-29 
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Palette: 

Additive 5-19 

Subtractive 5-19 

Surprise 5-20 

Paper size (plotter) 3-11 

Pause utility 7-6 

PDIR statement 2-42, 2-48 

Pen colors, choosing 5-5 

Pen force, controlling 3-8 

Pen program 2-27, A-4 

Pen speed, controlling 3-8 

PEN statement 5-7 

Pen-control parameter 2-37 

Pen-control parameters 2-54 

Pens 2-27 

Pens, dominant 5-4 

Pens, wide 7-2 

Pen.speed utility 7-12 

Photographing the CRT 5-39 

Pie.Chart program A-4 

PIVOT program A-22 

PIVOT statement 2-42, 2-48 

Pixels 2-27, 2-40 

Plot labeling 1-13 

Plot labelling ' 2-6 

PLOT statement 1-5, 1-13, 2-37, 2-40 

Plotter, defining a 7-4 

PLOTTER IS statement 3-7, 5-2 

Plotter paper size 3-11 

Plotter.is utility 7-4 

Plotters 3-7 

Plotting, data driven 2-37 

Plotting, incremental 2-45 

Plotting: 

character set selection 3-9 

Color plots 5-39 

Contour plots 6-9 

Defining plotting device 7-4 

Ending a plot 7-7 

Files, plotting to 3-11 

Fundamentals 3-7 
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Plotting (continued): 

HPGL commands 3-7 

Labels 7-8 

Limitations 3-12 

Paper size specification 3-11 

Pen force 3-8 

Pen speed 3-8 

PLOTTER IS statement 3-7 

SRM 3-13 

Surface plots 6-9, 6-14 

Wide pen simulation 7-2 

Polygon rotation 2-48 

POLYGON statement 2-47 

Polygons 2-47 

POLYLINE statement 2-48 

Primary colors 5-10 

Printers, non-standard 3-5 

Printing graphics 3-2, 3-15 

Programs, example 1-1, 2-1 

Programs: 

AXES A-10 

BACKGROUND A-3 

BAR.KNOB 4-1, A-3 

CDials 4-4 

CharCell 2-8, A-3 

CIRCLES A-3 

COLOR A-20 

Contour 6-9, A-3 

Csize 2-6, A-3 

DITHER.PAL 5-18 

DumpGraph A-3 

Gload A-28 

Gray.Map 6-12, A-3 

GRID A-12 

Gstore 2-32, A-4 

Iplot 2-46, A-4 

KBD.ICONS 4-15 

LABEL A-14 

Ldir 2-12, A-4 

Leml 2-38 

Lem2 A-4 
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Programs (continued): 

Lem2D A-4 

Lorg 2-10, A-4 

MARQUEE A-4 

Marquee 5-25 

Pen 2-27, A-4 

Pie.Chart A-4 

PIVOT A-22 

RANDOMVIEW A-18 

RevLABEL A-15 

RIPPLE 5-29 

RIPPLES A-5 

RPLOT A-16 

Rplot 2-42, A-5 

Scenery 2-48, A-5 

SET COLOR 5-14 

SHOWWINDOW A-25 

SinAxes A-5 

SINE A-8 

SinGrdAxes 2-23, A-5 

SinLabel 2-14, A-5 

SinLabel2 2-15, A-5 

SinViewprt 2-4, A-5 

STEREO 5-29, A-5 

STORM » 5-29, A-6 

Surface 6-14, A-6 

Symbol 2-55, A-6 

r 

RAD statement 2-12 

RANDOMVIEW program A-18 

Raster images, dumping 3-2, 3-15 

Raster Interface Standard 3-2 

Ratio, aspect 2-2, 2-9 

RATIO function 2-2 

RATIO statement 4-12 

READ LOCATOR statement 4-6, 4-18 

RECTANGLE statement 2-52 

Rectangles 2-52 

Relative locators 4-14 
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Relative origin 2-41 

RevLABEL program A-15 

RGB color cube 5-32 

RGB color model 5-12 

RGB displays 5-3 

RIPPLES program 5-29, A-5 

RND function 1-6, 1-8 

Rotating a drawing 2-41 

Rotation, polygon 2-48 

Rotation transformation matrix: 

3D 6-7 

RPLOT program A-16 

Rplot program 2-42, A-5 

RPLOT statement 2-41 

Rubber band line 4-7 

s 

Scale utility 7-10 

Scaling transformation matrix: 

3D v 6-7 

Scaling: 

Ansiotropic 1-9, 2-48 

Isotropic 1-6, 2-2 

X-axis 1-9, 2-2, 2-3 

Y-axis 1-10, 2-2, 2-3 

Scenery program 2-48, A-5 

Screen, denning edges 1-7 

Screen dumps 3-2, 3-15 

Screen limits 1-11 

Scrolling, alpha 2-64 

Separable degrees of freedom 4-4 

Separate alpha and graphics 1-6 

SEPARATE ALPHA FROM GRAPHICS statement 2-62 

SET ECHO statement 4-5 

SET.COLOR program 5-14 

Setgu utility 7-11 

Setuu utility 7-11 

Shearing transformation matrix: 

3D 6-8 
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Shearing: 

Definition 6-6 

Transformation matrix, 2D 6-6 

SHOW statement 1-6, 2-2 

Show utility 7-11 

SHOWWINDOW program A-25 

SinAxes program A-5 

SINE program A-8 

SinGrdAxes program 2-23, A-5 

SinLabel program 2-14, A-5 

SinLabel2 program 2-15, A-5 

SinViewprt program 2-4, A-5 

Soft clip limits 1-11, 2-26 

Softkeys 4-4 

Spaces, color 5-32 

Speed, pen 3-8 

Spoolers, plotter 3-13 

SRM plotter spoolers 3-13 

Statements: 

AREA COLOR 2-47, 2-52, 5-7 

AREA INTENSITY 2-40, 2-47, 2-52, 5-7 

AREA PEN 2-47, 2-52, 5-7 

AXES 1-15 

BINCMP 3-6 

CLIP 2-26 

CLIP OFF 1-11, 2-20 

CONTROL KBD 2-64 

CSIZE 2-6 

DEG 2-12 

DIGITIZE 4-5, 4-18 

DUMP DEVICE IS 3-2 

DUMP GRAPHICS 3-2 

GCLEAR 5-8 

GESCAPE 2-32, 2-59, 2-60 

GINIT 1-5, 4-12 

GLOAD 2-32 

GRAPHICS INPUT IS 4-6 

GRAPHICS ON 1-6 

GSEND 3-7, 3-12 

GSTORE 2-31, 5-6 
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Statements (continued): 

IDRAW 2-45 

IMOVE 2-45 

IPLOT 2-40, 2-45 

LABEL 1-13, 2-6, 2-13 

LDIR 2-12 

LINE TYPE 2-31 

LORG 2-10 

MAT REORDER 5-26 

MERGE ALPHA WITH GRAPHICS 2-62 

MOVE 1-13 

OUTPUT 3-3 

PDIR 2-42, 2-48 

PEN 5-7 

PIVOT 2-42, 2-48 

PLOT 1-5, 1-13, 2-37, 2-40 

PLOTTER IS 3-7, 5-2 

POLYGON 2-47 

POLYLINE 2-48 

RAD 2-12 

RATIO 2-2, 4-12 

READ LOCATOR 4-6, 4-18 

RECTANGLE 2-52 

RND 1-6, 1-8 

RPLOT 2-41 

SEPARATE ALPHA FROM GRAPHICS 2-62 

SET ECHO 4-5 

SHOW 1-6, 2-2 

SYMBOL 2-40, 2-53 

TRACK IS ON 4-5 

VIEWPORT 1-11, 1-12, 2-2, 2-3, 2-26 

WINDOW 2-2, 2-7 

STEREO program 5-29, A-5 

Stero pairs, 3D 5-29 

STORM program 5-29, A-6 

Subtractive palette 5-19 

Surface plotting 6-9, 6-14 

Surface program 6-14, A-6 

Surprise palette 5-20 
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Symbol coordinate system 2-9, 2-54 

Symbol program 2-55, A-6 

SYMBOL statement 2-40, 2-53 

t 

Tablet, graphics 4-14 

Tauiets, grapiiics 4-4 

Temperature, color 5-31 

Termination, HPGL command 3-7 

Three-D Stero pairs 5-29 

Tick marks 1-15 

Titles 1-13, 2-6 

Touchscreen 4-14 

TRACK IS ON statement 4-5 

Transformation matrices: 

Rotation, 3D 6-7 

Scaling, 3D 6-7 

Shearing, 2D 6-6 

Shearing, 3D 6-8 

Translation, 3D 6-7 

Translating a drawing 2-41 

Translation transformation matrix: 

3D 6-7 

Turning on Graphics 1-6 

Type, Line 2-30 

u 

UDC 2-55 

UDUs 1-7, 1-11, 2-2 

Unequal units (ansiotropic scaling) 1-9 

Units: 

Ansiotropic 1-9 

Equal (isotropic scaling) 1-6, 2-2 

GDUs 1-11, 2-2 

Graphics display 1-11, 2-2 

Isotropic 1-7, 2-2 

UDUs 1-11, 2-2 

Unequal (ansiotropic scaling) 1-9 

User-defined 1-11, 2-2 

User-defined (UDUs) 1-7 
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User-defined characters 2-53 

User-defined Units 2-2 

User-defined units 1-7 

Utilities: 

Arc 7-1 

End.plot 7-7 

Fat.arc 7-2 

Fatjine 7-2 

FNAsk 7-13 

FNAtan 7-9 

Gdu 7-6 

Label 7-8 

Load.paper 7-5 

Message 7-14 

Pause 7-6 

Pen.speed 7-12 

Plotter.is 7-4 

Scale 7-10 

Setgu 7-11 

Setuu 7-11 

Show 7-11 

Window 7-12 

V 

Video, inverse 3-6 

VIEWPORT statement 1-11, 1-12, 2-2, 2-3, 2-26 

VS (velocity select) command 3-8 

w 

Wide pen simulation 7-2 

WINDOW statement 2-2, 2-7 

Window utility 7-12 

Write-enable mask 2-59 

Writing, complementary 5-21 

Writing mode, non-dominant 4-10 

Writing, non-dominant 5-19 
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X 

X-axis scaling 1-9, 2-2, 2-3 

Xmax 2-3 

y 

Y-axis scaling 1-10, 2-2, 2-3 

■\r n o 

I lIlcLA 4-0 
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MANUAL COMMENT CARD 

BASIC 5.0/5.1 
Graphics Techniques 



HP Part Number 98613-90032 



11/87 



Please help us improve this manual. Circle the numbers in the following 
statement that best indicate how useful you found this manual. Then add 
any further comments in the spaces below. In appreciation of your time, we 
will enter your name in a quarterly drawing for an HP calculator. Thank 
you. 



The information in this manual: 

Is poorly organized 12 3 4 5 

Is hard to find 12 3 4 5 

Doesn't cover enough 12 3 4 5 

Has too many errors 12 3 4 5 



Is well organized 
Is easy to find 
Covers everything 
Is very accurate 



fold 



Particular pages with errors? 
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Name: 



Job Title: 
Company: 
Address: _ 



□ Check here if you wish a reply. 
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